suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

use <img> tags instead of <object> tags for svgs

Browse Source
This commit is contained in:
Robby Findler 2018-01-04 11:08:42 -07:00 committed by Matthew Flatt
parent 00739632cf
commit 1d8221a321
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scribble-lib/scribble/html-render.rkt
View File

@ -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])))