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

improve title link in tocset (use tocviewselflink for the title too)

Browse Source 
svn: r10593

original commit: a32e251f97d1381c56ba7f7349851ba8e87cff81
This commit is contained in:
Eli Barzilay 2008-07-04 01:55:03 +00:00
parent c0575d104b
commit 5c0c67f59d
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -386,21 +386,25 @@
,@(if (part-style? d 'no-toc)
null
(let* ([toc-content (toc-content)]
[content (render-content
(or (part-title-content top) '("???"))
d ri)]
[content (if (null? toc-content)
content
`((a ([href "index.html"] [class "tocviewlink"])
,@content)))])
`((div ([class "tocview"])
(div ([class "tocviewtitle"]) ,@content)
(div nbsp)
,@(if (null? toc-content)
[toc-content
(if (null? toc-content)
'()
(toc-wrap
`(table ([class "tocviewlist"] [cellspacing "0"])
,@toc-content)))))))
,@toc-content)))]
[title-content
`(div ([class "tocviewtitle"])
(a ([href "index.html"]
[class ,(if (eq? mine top)
"tocviewselflink"
"tocviewlink")])
,@(render-content (or (part-title-content top)
'("???"))
d ri)))])
`((div ([class "tocview"])
,title-content
(div nbsp)
,@toc-content))))
,@(render-onthispage-contents
d ri top (if (part-style? d 'no-toc) "tocview" "tocsub"))
,@(parameterize ([extra-breaking? #t])

1
collects/scribble/scribble.css
View File

@ -175,6 +175,7 @@ table td {
}
.tocviewselflink {
text-decoration: underline;
color: blue;
}