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

enable extra line breaking for ToC display

Browse Source 
svn: r9879

original commit: 2662eff0b0d4aa0affb94fb72cc78e6abd4f57bd
This commit is contained in:
Matthew Flatt 2008-05-18 16:12:25 +00:00
parent ab7c7e7f92
commit 04e6d902c8
1 changed files with 31 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -326,6 +326,7 @@
(loop p (if (reveal-subparts? d) mine d)) (loop p (if (reveal-subparts? d) mine d))
(values d mine))))) (values d mine)))))
(define toc-content (define toc-content
(parameterize ([extra-breaking? #t])
(map (lambda (pp) (map (lambda (pp)
(let ([p (car pp)] (let ([p (car pp)]
[show-number? (cdr pp)]) [show-number? (cdr pp)])
@ -355,7 +356,7 @@
(cons (car l) (loop (append (map (lambda (v) (cons v #f)) (cons (car l) (loop (append (map (lambda (v) (cons v #f))
(part-parts (caar l))) (part-parts (caar l)))
(cdr l))))] (cdr l))))]
[else (cons (car l) (loop (cdr l)))])))) [else (cons (car l) (loop (cdr l)))])))))
`((div ([class "tocset"]) `((div ([class "tocset"])
,@(let* ([content (render-content ,@(let* ([content (render-content
(or (part-title-content top) '("???")) (or (part-title-content top) '("???"))