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

Changed behaviour of render-part-content with respect to html-render-pict-as

Browse Source 
original commit: 1bb4eb8879bf19466e26742fb1e72bc4fcf5ab19
This commit is contained in:
Jens Axel Søgaard 2013-10-15 00:23:24 +02:00
parent 9103a7250f
commit 0724d20135
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
View File

@ -977,14 +977,14 @@
ri)))))) ri))))))
(define/public (extract-render-pict-as d) (define/public (extract-render-pict-as d)
(or (ormap (lambda (v) (ormap (lambda (v)
(and (render-pict-as? v) (and (render-pict-as? v)
(render-pict-as-type v))) (render-pict-as-type v)))
(style-properties (part-style d))) (style-properties (part-style d))))
'png-images))
(define/override (render-part-content d ri) (define/override (render-part-content d ri)
(parameterize ([current-render-pict-as (extract-render-pict-as d)]) (parameterize ([current-render-pict-as (or (extract-render-pict-as d)
(current-render-pict-as))])
(let ([number (collected-info-number (part-collected-info d ri))]) (let ([number (collected-info-number (part-collected-info d ri))])
`(,@(let ([pres (extract-pretitle d)]) `(,@(let ([pres (extract-pretitle d)])
(append-map (lambda (pre) (append-map (lambda (pre)