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

fix text renderer

Browse Source 
svn: r18255
This commit is contained in:
Matthew Flatt 2010-02-21 13:04:06 +00:00
parent 1d378bc6d7
commit ed2010bd70
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/latex-render.ss
View File

@ -183,8 +183,7 @@
(printf "\n\n") (printf "\n\n")
(unless (no-noindent? p ri) (unless (no-noindent? p ri)
(printf "\\noindent "))) (printf "\\noindent ")))
(begin0 (super render-intrapara-block p part ri first? last? starting-item?))
(super render-intrapara-block p part ri first? last? starting-item?)))
(define/override (render-content e part ri) (define/override (render-content e part ri)
(when (render-element? e) (when (render-element? e)

7
collects/scribble/text-render.ss
View File

@ -54,6 +54,11 @@
(render-block p part ht #f)) (render-block p part ht #f))
(cdr f))))) (cdr f)))))
(define/override (render-intrapara-block p part ri first? last? starting-item?)
(unless first? (newline) (newline))
(super render-intrapara-block p part ri first? last? starting-item?))
(define/override (render-table i part ht inline?) (define/override (render-table i part ht inline?)
(let ([flowss (table-blockss i)]) (let ([flowss (table-blockss i)])
(if (null? flowss) (if (null? flowss)
@ -63,7 +68,7 @@
(map (lambda (d) (unless (eq? d 'cont) (render-block d part ht #f))) (car flowss)) (map (lambda (d) (unless (eq? d 'cont) (render-block d part ht #f))) (car flowss))
(map (lambda (flows) (map (lambda (flows)
(newline) (newline)
(map (lambda (d) (unless (eq? d 'cont) (render-flow d part ht #f))) flows)) (map (lambda (d) (unless (eq? d 'cont) (render-block d part ht #f))) flows))
(cdr flowss)))))) (cdr flowss))))))
(define/override (render-itemization i part ht) (define/override (render-itemization i part ht)