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

extra word wrapping in inherited-method table

Browse Source 
svn: r9084

original commit: 0fc5a646aa91a18c1c6c90bdf7cf9f195d4fa50e
This commit is contained in:
Matthew Flatt 2008-03-25 15:27:22 +00:00
parent 4f98165217
commit 5592d2bd93
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -327,19 +327,20 @@
`(table ((class "tocviewlist") (cellspacing "0")) `(table ((class "tocviewlist") (cellspacing "0"))
,@toc-content))))))) ,@toc-content)))))))
,@(render-onthispage-contents d ri top) ,@(render-onthispage-contents d ri top)
,@(apply append ,@(parameterize ([extra-breaking? #t])
(map (lambda (t) (apply append
(let loop ([t t]) (map (lambda (t)
(if (table? t) (let loop ([t t])
(render-table t d ri #f) (if (table? t)
(loop (delayed-flow-element-flow-elements t ri))))) (render-table t d ri #f)
(filter (lambda (e) (loop (delayed-flow-element-flow-elements t ri)))))
(let loop ([e e]) (filter (lambda (e)
(or (and (auxiliary-table? e) (let loop ([e e])
(pair? (table-flowss e))) (or (and (auxiliary-table? e)
(and (delayed-flow-element? e) (pair? (table-flowss e)))
(loop (delayed-flow-element-flow-elements e ri)))))) (and (delayed-flow-element? e)
(flow-paragraphs (part-flow d))))))))) (loop (delayed-flow-element-flow-elements e ri))))))
(flow-paragraphs (part-flow d))))))))))
(define/public (get-onthispage-label) (define/public (get-onthispage-label)
null) null)