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

commit a14bdb7d66119c1b23719ea5516f421de5f162db
parent 1d4626a4c11e7a193f59783405684733e9aba1f6
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 10 Jan 2011 15:42:52 -0700

change Scribble HTML to use `object' tag for SVG

original commit: a9bedcc69dae9790ad910285d5c75c2e4314d033

Diffstat:
M
collects/scribble/html-render.rkt
 | 
23
+++++++++++++++--------

1 file changed, 15 insertions(+), 8 deletions(-)
diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt
@@ -1004,14 +1004,21 @@
                              [height ,(to-num (read-bytes 4 in))])]
                           [else
                            null])))])])
-           `((,(if svg? 'iframe 'img)
-              ([src ,(let ([p (install-file src)])
-                       (if (path? p)
-                           (url->string (path->url (path->complete-path p)))
-                           p))]
-               [alt ,(content->string (element-content e))]
-               ,@sz
-               ,@(attribs)))))]
+           (let ([srcref (let ([p (install-file src)])
+                           (if (path? p)
+                               (url->string (path->url (path->complete-path p)))
+                               p))])
+             `((,(if svg? 'object 'img)
+                ([,(if svg? 'data 'src) ,srcref]
+                 [alt ,(content->string (element-content e))]
+                 ,@(if svg?
+                       `([type "image/svg+xml"])
+                       null)
+                 ,@sz
+                 ,@(attribs))
+                ,@(if svg? 
+                      `((param ([name "src"] [value ,srcref])))
+                      null)))))]
         [(and (or (element? e) (multiarg-element? e))
               (ormap (lambda (v) (and (script-property? v) v))
                      (let ([s (if (element? e)