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))])
(with-syntax ([tag (if (n . > . 1) (format "~a:~a" str n) str)]
[(more ...) (if (n . > . 1)
#`((subscript #,(format "~a" n)))
#`((subscript (smaller #,(format "~a" n))))
#`())]
[str str])
#`(make-splice
(list (make-toc-element
#f
(list (elemtag '(chunk tag) (italic (scheme name) " ::=")))
(list (make-element
"smaller"
(list (elemref '(chunk tag) #:underline? #f
str more ...)))))
(list (elemtag '(chunk tag)
(bold (italic (scheme name)) " ::=")))
(list (smaller (elemref '(chunk tag) #:underline? #f
str more ...))))
(schemeblock expr ...)))))]))
(define-syntax (chunkref stx)