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"))
,@toc-content)))))))
,@(render-onthispage-contents d ri top)
,@(apply append
(map (lambda (t)
(let loop ([t t])
(if (table? t)
(render-table t d ri #f)
(loop (delayed-flow-element-flow-elements t ri)))))
(filter (lambda (e)
(let loop ([e e])
(or (and (auxiliary-table? e)
(pair? (table-flowss e)))
(and (delayed-flow-element? e)
(loop (delayed-flow-element-flow-elements e ri))))))
(flow-paragraphs (part-flow d)))))))))
,@(parameterize ([extra-breaking? #t])
(apply append
(map (lambda (t)
(let loop ([t t])
(if (table? t)
(render-table t d ri #f)
(loop (delayed-flow-element-flow-elements t ri)))))
(filter (lambda (e)
(let loop ([e e])
(or (and (auxiliary-table? e)
(pair? (table-flowss e)))
(and (delayed-flow-element? e)
(loop (delayed-flow-element-flow-elements e ri))))))
(flow-paragraphs (part-flow d))))))))))
(define/public (get-onthispage-label)
null)