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

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

Browse Source
This commit is contained in:
Jens Axel Søgaard 2013-10-15 00:23:24 +02:00
parent c5ccedc086
commit 1bb4eb8879
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))))))
(define/public (extract-render-pict-as d)
(or (ormap (lambda (v)
(ormap (lambda (v)
(and (render-pict-as? v)
(render-pict-as-type v)))
(style-properties (part-style d)))
'png-images))
(style-properties (part-style d))))
(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 ([pres (extract-pretitle d)])
(append-map (lambda (pre)