bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 49eac8975b0dbca9bd9a93c2fc9724a2f5beed41
parent 24492f3f9beb161c25e2f9931cf8e2a266b33a95
Author: Jens Axel Søgaard <jensaxel@soegaard.net>
Date:   Mon, 14 Oct 2013 16:41:42 +0200

Added pict to svg conversion. Added parameter to Scribble's html renderer to control choice between png and svg.

original commit: 5ed686d9911b9f0d1cb1d5cb58d6950e33b9d17c

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/base.rkt
 | 
3
++-
M
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
 | 
11
+++++++++--

2 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/base.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/base.rkt
@@ -6,13 +6,14 @@
          "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"))
+(provide (all-from-out "tag.rkt" "parameters.rkt"))
 
 ;; ----------------------------------------
 
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
@@ -1,5 +1,4 @@
 #lang scheme/base
-
 (require "core.rkt"
          "private/render-utils.rkt"
          "html-properties.rkt"
@@ -1092,7 +1091,8 @@
       (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 (convertible? e)
+        [(and (equal? (current-html-render-pict-as) 'png)
+              (convertible? e)
               (convert e 'png-bytes))
          => (lambda (bstr)
               (let ([w (integer-bytes->integer (subbytes bstr 16 20) #f #t)]
@@ -1101,6 +1101,13 @@
                         [alt "image"]
                         [width ,(number->string w)]
                         [height ,(number->string h)])))))]
+        [(and (equal? (current-html-render-pict-as) 'svg)
+              (convertible? e)
+              (convert e 'svg-bytes))
+         => (lambda (bstr)
+             `((object
+                ([data ,(install-file "pict.svg" bstr)]
+                 [type "image/svg+xml"]))))]
         [(image-element? e)
          (let* ([src (collects-relative->path (image-element-path e))]
                 [suffixes (image-element-suffixes e)]