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

add `schemecommentfont'

Browse Source 
original commit: 0b2beace40ceccbdeda4f66c3124b725730bc895
This commit is contained in:
Matthew Flatt 2011-09-03 14:57:57 -06:00
parent 78886fda93
commit 037d6f0f4c
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/private/manual-style.rkt
View File

@ -30,7 +30,7 @@
(provide/contract [id styling-f/c] ...)) (provide/contract [id styling-f/c] ...))
(provide-styling racketmodfont racketoutput (provide-styling racketmodfont racketoutput
racketerror racketfont racketvalfont racketresultfont racketidfont racketvarfont racketerror racketfont racketvalfont racketresultfont racketidfont racketvarfont
racketparenfont racketkeywordfont racketmetafont racketcommentfont racketparenfont racketkeywordfont racketmetafont
onscreen defterm filepath exec envvar Flag DFlag PFlag DPFlag math onscreen defterm filepath exec envvar Flag DFlag PFlag DPFlag math
procedure procedure
indexed-file indexed-envvar idefterm pidefterm) indexed-file indexed-envvar idefterm pidefterm)
@ -101,6 +101,8 @@
(make-element paren-color (decode-content str))) (make-element paren-color (decode-content str)))
(define (racketmetafont . str) (define (racketmetafont . str)
(make-element meta-color (decode-content str))) (make-element meta-color (decode-content str)))
(define (racketcommentfont . str)
(make-element comment-color (decode-content str)))
(define (racketmodfont . str) (define (racketmodfont . str)
(make-element module-color (decode-content str))) (make-element module-color (decode-content str)))
(define (racketkeywordfont . str) (define (racketkeywordfont . str)

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

@ -462,6 +462,9 @@ sub-form in a procedure being documented).}
@racket[racketfont], but colored as meta-syntax, such as backquote or @racket[racketfont], but colored as meta-syntax, such as backquote or
unquote.} unquote.}
@defproc[(racketcommentfont [pre-content pre-content?] ...) element?]{Like
@racket[racketfont], but colored as a comment.}
@defproc[(racketerror [pre-content pre-content?] ...) element?]{Like @defproc[(racketerror [pre-content pre-content?] ...) element?]{Like
@racket[racketfont], but colored as error-message text.} @racket[racketfont], but colored as error-message text.}