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

Use html-render-pict-as to control whether html-render uses pngs or svgs

Browse Source 
original commit: 2bc58b5663c7753b0ad9bdabe18acd637276ac96
This commit is contained in:
Jens Axel Søgaard 2013-10-14 22:25:28 +02:00
parent 49eac8975b
commit 8a5a9adfc5
3 changed files with 61 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/scribble-pkgs/scribble-lib/scribble/base.rkt
View File

@ -6,14 +6,13 @@
"decode-struct.rkt"
"html-properties.rkt"
"tag.rkt"
"parameters.rkt"
scheme/list
scheme/class
racket/contract/base
racket/contract/combinator
(for-syntax scheme/base))
(provide (all-from-out "tag.rkt" "parameters.rkt"))
(provide (all-from-out "tag.rkt"))
;; ----------------------------------------

3
pkgs/scribble-pkgs/scribble-lib/scribble/html-properties.rkt
View File

@ -24,4 +24,5 @@
[install-resource ([path path-string?])]
[link-resource ([path path-string?])]
[head-extra ([xexpr xexpr/c])])
[head-extra ([xexpr xexpr/c])]
[render-pict-as ([type symbol?])])

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

@ -94,6 +94,7 @@
(define extra-breaking? (make-parameter #f))
(define current-version (make-parameter (version)))
(define current-part-files (make-parameter #f))
(define current-render-pict-as (make-parameter 'png-images))
(define (url->string* u)
(parameterize ([current-url-encode-mode 'unreserved])
@ -975,7 +976,15 @@
d
ri))))))
(define/public (extract-render-pict-as d)
(or (ormap (lambda (v)
(and (render-pict-as? v)
(render-pict-as-type v)))
(style-properties (part-style d)))
""))
(define/override (render-part-content d ri)
(parameterize ([current-render-pict-as (extract-render-pict-as d)])
(let ([number (collected-info-number (part-collected-info d ri))])
`(,@(let ([pres (extract-pretitle d)])
(append-map (lambda (pre)
@ -1022,7 +1031,7 @@
(if (null? secs)
null
(append (render-part (car secs) ri)
(loop (add1 pos) (cdr secs))))))))
(loop (add1 pos) (cdr secs)))))))))
(define/private (render-flow* p part ri starting-item? special-last?)
;; Wrap each table with <p>, except for a trailing table
@ -1091,7 +1100,7 @@
(cond
[(string? e) (super render-content e part ri)] ; short-cut for common case
[(list? e) (super render-content e part ri)] ; also a short-cut
[(and (equal? (current-html-render-pict-as) 'png)
[(and (equal? (current-render-pict-as) 'png-images)
(convertible? e)
(convert e 'png-bytes))
=> (lambda (bstr)
@ -1101,7 +1110,7 @@
[alt "image"]
[width ,(number->string w)]
[height ,(number->string h)])))))]
[(and (equal? (current-html-render-pict-as) 'svg)
[(and (equal? (current-render-pict-as) 'svg-images)
(convertible? e)
(convert e 'svg-bytes))
=> (lambda (bstr)