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

fix HTML rendering bug

Browse Source 
svn: r15506
This commit is contained in:
Matthew Flatt 2009-07-20 19:54:19 +00:00
parent 0fc2ad54db
commit da12c07d2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1151,11 +1151,11 @@
,@(append-map (lambda (i) (render-block i part ri #f)) ,@(append-map (lambda (i) (render-block i part ri #f))
(blockquote-paragraphs t))))) (blockquote-paragraphs t)))))
(define/override (render-compound-paragraph t part ri) (define/override (render-compound-paragraph t part ri starting-item?)
`((p ,(if (string? (compound-paragraph-style t)) `((p ,(if (string? (compound-paragraph-style t))
`([class ,(regexp-replace #rx"^[\\]" (compound-paragraph-style t) "")]) `([class ,(regexp-replace #rx"^[\\]" (compound-paragraph-style t) "")])
`()) `())
,@(super render-compound-paragraph t part ri)))) ,@(super render-compound-paragraph t part ri starting-item?))))
(define/override (render-itemization t part ri) (define/override (render-itemization t part ri)
(let ([style-str (and (styled-itemization? t) (let ([style-str (and (styled-itemization? t)