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

no underlines

Browse Source 
svn: r13672

original commit: a016d20e847be63a16b8c0640869f52ec55b68c2
This commit is contained in:
Eli Barzilay 2009-02-16 16:44:34 +00:00
parent 36569a05b4
commit e4a2ca5ac1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,8 @@
(list (elemtag '(chunk tag) (italic (scheme name) " ::=")))
(list (make-element
"smaller"
(list (elemref '(chunk tag) str more ...)))))
(list (elemref '(chunk tag) #:underline? #f
str more ...)))))
(schemeblock expr ...)))))]))
(define-syntax (chunkref stx)
@ -48,7 +49,7 @@
[(_ id)
(identifier? #'id)
(with-syntax ([str (format "~a" (syntax-e #'id))])
#'(elemref '(chunk str) str))]))
#'(elemref '(chunk str) #:underline? #f str))]))
;; HACK: provide a fake `module', which makes it possible to include a module
;; and get only its code in.