suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Scribble HTML renderer: mark internal links with 'extra-internal-attribs'

Browse Source 
svn: r17018

original commit: 1dd2109909937385c3783a6e49bb16af09b8f097
This commit is contained in:
Matthew Flatt 2009-11-23 22:56:28 +00:00
parent 3a46471753
commit ff82cc48c3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,6 +43,8 @@
,@(map (lambda (x) (if (string? x) x (format "~a" x))) body)
"\n"))))
(define (extra-internal-attribs) null)
(define-runtime-path scribble-css "scribble.css")
(define-runtime-path scribble-style-css "scribble-style.css")
(define-runtime-path scribble-prefix-html "scribble-prefix.html")
@ -359,7 +361,8 @@
`((a ([href ,(dest->url (resolve-get t ri (car (part-tags t))))]
[class ,(if (or (eq? t d) (and show-mine? (memq t toc-chain)))
"tocviewselflink"
"tocviewlink")])
"tocviewlink")]
,@(extra-internal-attribs))
,@(render-content (or (part-title-content t) '("???")) d ri)))
(format-number (collected-info-number (part-collected-info t ri))
'(nbsp))))
@ -528,7 +531,8 @@
,(cond
[(part? p) "tocsubseclink"]
[any-parts? "tocsubnonseclink"]
[else "tocsublink"])])
[else "tocsublink"])]
,@(extra-internal-attribs))
,@(render-content
(if (part? p)
(or (part-title-content p)
@ -987,7 +991,8 @@
[else
;; Normal link:
(dest->url dest)]))
,@(attribs)]
,@(attribs)
,@(extra-internal-attribs)]
,@(if (empty-content? (element-content e))
(render-content (strip-aux (dest-title dest)) part ri)
(render-content (element-content e) part ri))))