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

hack: see comment

Browse Source 
svn: r10892

original commit: 1f6007ce8b4213e2f402445745c9e37764ee31b4
This commit is contained in:
Eli Barzilay 2008-07-24 08:16:07 +00:00
parent e186bdee0f
commit 35ca52a88d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -755,10 +755,14 @@
(render-flow* p part ri start-inline? #t)) (render-flow* p part ri start-inline? #t))
(define/override (render-paragraph p part ri) (define/override (render-paragraph p part ri)
`((p ,(if (styled-paragraph? p) ;; HACK: for the search, we need to be able to render a `div'
`([class ,(styled-paragraph-style p)]) ;; with an `id' attribute, `p' will probably work fine instead
`()) ;; of `div' since it's a block element. Do this for now.
,@(super render-paragraph p part ri)))) (let ([contents (super render-paragraph p part ri)]
[style (and (styled-paragraph? p) (styled-paragraph-style p))])
(if (and (pair? style) (eq? (car style) 'div))
`((div-hack ,(cdr style) ,@contents))
`((p ,(if style `([class ,style]) `()) ,@contents)))))
(define/override (render-element e part ri) (define/override (render-element e part ri)
(cond (cond