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

scribble: fix "on this page" rendering

Browse Source 
A recent change improved "on this page" handling and also
fixed a short-circuit test to almost certainly do what
was originally intended, but the test was wrong, so just
get rid of it.

original commit: 2d5884b26a8aa96cab469b31c8b4d16190f854a9
This commit is contained in:
Matthew Flatt 2013-02-18 17:34:16 -07:00
parent a84adaeddb
commit 835ef02800
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -529,11 +529,6 @@
h?))) h?)))
(define/private (render-onthispage-contents d ri top box-class sections-in-toc?) (define/private (render-onthispage-contents d ri top box-class sections-in-toc?)
(if (andmap (lambda (p) (or (part-whole-page? p ri)
(and (part-style? p 'toc-hidden)
(all-toc-hidden? p))))
(part-parts d))
null
(let ([nearly-top? (lambda (d) (let ([nearly-top? (lambda (d)
;; If ToC would be collapsed, then ;; If ToC would be collapsed, then
;; no section is nearly the top ;; no section is nearly the top
@ -640,7 +635,7 @@
"???") "???")
(element-content p)) (element-content p))
d ri))))))))) d ri)))))))))
ps)))))))) ps)))))))
(define/public (extract-part-body-id d ri) (define/public (extract-part-body-id d ri)
(or (ormap (lambda (v) (or (ormap (lambda (v)