suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scribble/manual: add a #:key' argument to deftech'

Browse Source 
original commit: dfcf50e1651a6dbf4a3aec00868cb74de9538d88
This commit is contained in:
Matthew Flatt 2013-03-19 11:17:22 -07:00
parent 3cbb1e4e0e
commit b50c8a7f6a
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribble/private/manual-tech.rkt
View File

@ -7,7 +7,8 @@
(provide/contract (provide/contract
[deftech (() (#:normalize? any/c [deftech (() (#:normalize? any/c
#:style? any/c) #:style? any/c
#:key (or/c string? #f))
#:rest (listof pre-content?) . ->* . element?)] #:rest (listof pre-content?) . ->* . element?)]
[tech (() [tech (()
(#:doc (or/c module-path? false/c) (#:doc (or/c module-path? false/c)
@ -37,11 +38,14 @@
[s (datum-intern-literal s)]) [s (datum-intern-literal s)])
(make-elem style c (list 'tech (doc-prefix doc prefix s))))) (make-elem style c (list 'tech (doc-prefix doc prefix s)))))
(define (deftech #:style? [style? #t] #:normalize? [normalize? #t] . s) (define (deftech #:style? [style? #t]
#:normalize? [normalize? #t]
#:key [key #f]
. s)
(let* ([e (if style? (let* ([e (if style?
(apply defterm s) (apply defterm s)
(make-element #f (decode-content s)))] (make-element #f (decode-content s)))]
[t (*tech make-target-element #f #f #f (list e) #f normalize?)]) [t (*tech make-target-element #f #f #f (list e) key normalize?)])
(make-index-element #f (make-index-element #f
(list t) (list t)
(target-element-tag t) (target-element-tag t)

8
collects/scribblings/scribble/manual.scrbl
View File

@ -1418,6 +1418,7 @@ Alias of @racket[hyperlink] for backward compatibility.}
Alias of @racket[other-doc] for backward compatibility.} Alias of @racket[other-doc] for backward compatibility.}
@defproc[(deftech [pre-content pre-content?] ... @defproc[(deftech [pre-content pre-content?] ...
[#:key key (or/c string? #f) #f]
[#:normalize? normalize? any/c #t] [#:normalize? normalize? any/c #t]
[#:style? style? any/c #t]) element?]{ [#:style? style? any/c #t]) element?]{
@ -1425,9 +1426,10 @@ Produces an element for the @tech{decode}d @racket[pre-content], and
also defines a term that can be referenced elsewhere using also defines a term that can be referenced elsewhere using
@racket[tech]. @racket[tech].
The @racket[content->string] result of the @tech{decode}d When @racket[key] is @racket[#f], the @racket[content->string] result
@racket[pre-content] is used as a key for references; if of the @tech{decode}d @racket[pre-content] is used as a key for
@racket[normalize?] is true, then the string is normalized as follows: references. If @racket[normalize?] is true, then the key string is
normalized as follows:
@itemize[ @itemize[