suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

minor doc formatting

Browse Source 
svn: r13674

original commit: 580ec62341e67fdef89db11a5004339408af72f5
This commit is contained in:
Eli Barzilay 2009-02-16 17:42:46 +00:00
parent e4a2ca5ac1
commit 0d96872a1a
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/games/chat-noir/literate-doc-wrapper.ss
View File

@ -31,17 +31,16 @@
[str (symbol->string (syntax-e #'name))]) [str (symbol->string (syntax-e #'name))])
(with-syntax ([tag (if (n . > . 1) (format "~a:~a" str n) str)] (with-syntax ([tag (if (n . > . 1) (format "~a:~a" str n) str)]
[(more ...) (if (n . > . 1) [(more ...) (if (n . > . 1)
#`((subscript #,(format "~a" n))) #`((subscript (smaller #,(format "~a" n))))
#`())] #`())]
[str str]) [str str])
#`(make-splice #`(make-splice
(list (make-toc-element (list (make-toc-element
#f #f
(list (elemtag '(chunk tag) (italic (scheme name) " ::="))) (list (elemtag '(chunk tag)
(list (make-element (bold (italic (scheme name)) " ::=")))
"smaller" (list (smaller (elemref '(chunk tag) #:underline? #f
(list (elemref '(chunk tag) #:underline? #f str more ...))))
str more ...)))))
(schemeblock expr ...)))))])) (schemeblock expr ...)))))]))
(define-syntax (chunkref stx) (define-syntax (chunkref stx)