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

drop 'aux elements from left-margin contents

Browse Source 
Removing aux elements for the left-margin contexts makes link
rendering consistent with other hyperlinks.
This commit is contained in:
Matthew Flatt 2015-06-09 07:09:38 -06:00
parent c1df897ab3
commit b812869d3e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scribble-lib/scribble/html-render.rkt
View File

@ -580,7 +580,7 @@
"tocviewselflink" "tocviewselflink"
"tocviewlink")] "tocviewlink")]
[data-pltdoc "x"]) [data-pltdoc "x"])
,@(render-content (or (part-title-content t) '("???")) d ri))) ,@(render-content (strip-aux (or (part-title-content t) '("???"))) d ri)))
(format-number (collected-info-number (part-collected-info t ri)) (format-number (collected-info-number (part-collected-info t ri))
'(nbsp)))) '(nbsp))))
(define (toc-item->block t i) (define (toc-item->block t i)
@ -787,8 +787,9 @@
[data-pltdoc "x"]) [data-pltdoc "x"])
,@(render-content ,@(render-content
(if (part? p) (if (part? p)
(or (part-title-content p) (strip-aux
"???") (or (part-title-content p)
"???"))
(if (toc-target2-element? p) (if (toc-target2-element? p)
(toc-target2-element-toc-content p) (toc-target2-element-toc-content p)
(element-content p))) (element-content p)))