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

Fixes scribble bug #25

Browse Source
This commit is contained in:
Georges Dupéron 2016-06-17 19:59:40 +02:00
parent c34a69c623
commit dcf8013526
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scribble-lib/scribble/private/lp.rkt
View File

@ -22,7 +22,7 @@
(identifier? #'name)
(let* ([n (get-chunk-number (syntax-local-introduce #'name))]
[str (symbol->string (syntax-e #'name))]
[tag (format "~a:~a" str (or n 1))])
[tag (format "chunk:~a:~a" str (or n 1))])
(when n
(inc-chunk-number (syntax-local-introduce #'name)))
@ -61,9 +61,9 @@
(make-splice
(list (make-toc-element
#f
(list (elemtag '(chunk tag)
(list (elemtag '(prefixable tag)
(bold (italic (racket name)) " ::=")))
(list (smaller (elemref '(chunk tag) #:underline? #f
(list (smaller (elemref '(prefixable tag) #:underline? #f
str
rest (... ...)))))
(racketblock expr (... ...)))))))])))
@ -75,9 +75,9 @@
(syntax-case stx ()
[(_ id)
(identifier? #'id)
(with-syntax ([tag (format "~a:1" (syntax-e #'id))]
(with-syntax ([tag (format "chunk:~a:1" (syntax-e #'id))]
[str (format "~a" (syntax-e #'id))])
#'(elemref '(chunk tag) #:underline? #f str))]))
#'(elemref '(prefixable tag) #:underline? #f str))]))
(provide (all-from-out scheme/base