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

toc links fix

Browse Source 
svn: r10678
This commit is contained in:
Eli Barzilay 2008-07-08 15:32:47 +00:00
parent d406fb6dcf
commit 5f30464c0e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,8 +404,11 @@
(let-values ([(t n) (toc-item->title+num c #t)]) (let-values ([(t n) (toc-item->title+num c #t)])
`(tr () (td ([align "right"]) ,@n) (td () ,@t))))))))) `(tr () (td ([align "right"]) ,@n) (td () ,@t)))))))))
(define (toc-content) (define (toc-content)
;; no links -- the code constructs links where needed
(parameterize ([current-no-links #t]
[extra-breaking? #t])
(for/list ([t toc-chain] [i (in-naturals)]) (for/list ([t toc-chain] [i (in-naturals)])
(toc-item->block t i))) (toc-item->block t i))))
`((div ([class "tocset"]) `((div ([class "tocset"])
,@(if (part-style? d 'no-toc) ,@(if (part-style? d 'no-toc)
null null