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

avoid genarating toc-content if not needed

Browse Source 
svn: r10592

original commit: 97006715341ab34af7d3986250861a7824c5364e
This commit is contained in:
Eli Barzilay 2008-07-04 01:04:18 +00:00
parent e578b6c328
commit c0575d104b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -371,7 +371,7 @@
"tocviewselflink" "tocviewlink")]) "tocviewselflink" "tocviewlink")])
,@(render-content (or (part-title-content p) '("???")) ,@(render-content (or (part-title-content p) '("???"))
d ri)))))) d ri))))))
(define toc-content (define (toc-content)
(parameterize ([extra-breaking? #t]) (parameterize ([extra-breaking? #t])
(map do-part (map do-part
(let loop ([l (map (lambda (v) (cons v #t)) (part-parts top))]) (let loop ([l (map (lambda (v) (cons v #t)) (part-parts top))])
@ -385,7 +385,8 @@
`((div ([class "tocset"]) `((div ([class "tocset"])
,@(if (part-style? d 'no-toc) ,@(if (part-style? d 'no-toc)
null null
(let* ([content (render-content (let* ([toc-content (toc-content)]
[content (render-content
(or (part-title-content top) '("???")) (or (part-title-content top) '("???"))
d ri)] d ri)]
[content (if (null? toc-content) [content (if (null? toc-content)
@ -532,7 +533,8 @@
,title ,title
,(scribble-css-contents style-file css-path) ,(scribble-css-contents style-file css-path)
,(scribble-js-contents script-file script-path)) ,(scribble-js-contents script-file script-path))
(body () ,@(render-toc-view d ri) (body ()
,@(render-toc-view d ri)
(div ([class "maincolumn"]) (div ([class "maincolumn"])
(div ([class "main"]) (div ([class "main"])
,@(render-version d ri) ,@(render-version d ri)