From 1d8221a321708ab5475dd02168a7099838a57c08 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 4 Jan 2018 11:08:42 -0700
Subject: [PATCH] use <img> tags instead of <object> tags for svgs

---
 scribble-lib/scribble/html-render.rkt | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/scribble-lib/scribble/html-render.rkt b/scribble-lib/scribble/html-render.rkt
index 7ec0a174..046b8294 100644
--- a/scribble-lib/scribble/html-render.rkt
+++ b/scribble-lib/scribble/html-render.rkt
@@ -1317,17 +1317,11 @@
                            (if (path? p)
                                (url->string* (path->url (path->complete-path p)))
                                p))])
-             `((,(if svg? 'object 'img)
-                ([,(if svg? 'data 'src) ,srcref]
+             `((img
+                ([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)))))]
+                 ,@(attribs))))))]
         [(element-style-property-matching e script-property?)
          => 
          (lambda (v)
@@ -1496,8 +1490,8 @@
                   (list
                    (add-padding
                     cvt
-                    `(object
-                      ([data ,(install-file "pict.svg" bstr)]
+                    `(img
+                      ([src ,(install-file "pict.svg" bstr)]
                        [type "image/svg+xml"]))))))]
           [else #f])))