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

add numbers to navigation link tooltips

Browse Source 
svn: r10575

original commit: 3a39b112c9264f59c3e686bb5986d5ad130ccaaa
This commit is contained in:
Eli Barzilay 2008-07-03 08:39:55 +00:00
parent 1c8e0de760
commit 9f77ab292d
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/html-render.ss
View File

@ -596,9 +596,16 @@
(define (titled-url label x #:title-from [tfrom #f] . more) (define (titled-url label x #:title-from [tfrom #f] . more)
(define-values (url title) (define-values (url title)
(cond [(part? x) (cond [(part? x)
(values (derive-filename x) (values
(string-append (derive-filename x)
"\"" (content->string (part-title-content x)) "\""))] (string-append
"\""
(content->string
(append (format-number (collected-info-number
(part-collected-info x ri))
'(" "))
(part-title-content x)))
"\""))]
[(equal? x "index.html") (values x "the manual top")] [(equal? x "index.html") (values x "the manual top")]
[(equal? x "../index.html") (values x "the documentation top")] [(equal? x "../index.html") (values x "the documentation top")]
[(string? x) (values x #f)] [(string? x) (values x #f)]