suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix Scribble rendering problem with 'aux tables hidden within compound paragraphs (so some inherited-method tables didn't appear in the GUI docs)

Browse Source 
svn: r17940
This commit is contained in:
Matthew Flatt 2010-02-02 17:19:29 +00:00
parent e02335e425
commit db1533fa78
2 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -426,20 +426,19 @@
d ri top (if (part-style? d 'no-toc) "tocview" "tocsub")
sub-parts-on-other-page?)
,@(parameterize ([extra-breaking? #t])
(append-map
(lambda (t)
(let loop ([t t])
(if (table? t)
(render-table t d ri #f)
(loop (delayed-block-blocks t ri)))))
(filter (lambda (e)
(let loop ([e e])
(or (and (table? e)
(memq 'aux (style-properties (table-style e)))
(pair? (table-blockss e)))
(and (delayed-block? e)
(loop (delayed-block-blocks e ri))))))
(part-blocks d)))))))
(append-map (lambda (e)
(let loop ([e e])
(cond
[(and (table? e)
(memq 'aux (style-properties (table-style e)))
(pair? (table-blockss e)))
(render-table e d ri #f)]
[(delayed-block? e)
(loop (delayed-block-blocks e ri))]
[(compound-paragraph? e)
(append-map loop (compound-paragraph-blocks e))]
[else null])))
(part-blocks d))))))
(define/public (get-onthispage-label)
null)

2
collects/scribble/private/manual-class.ss
View File

@ -72,7 +72,7 @@
(let loop ([supers start][accum null])
(cond
[(null? supers) (reverse accum)]
[(memq (car supers) accum)
[(assoc (caar supers) accum)
(loop (cdr supers) accum)]
[else
(let ([super (car supers)])