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

change Scribble HTML to use `object' tag for SVG

Browse Source 
original commit: a9bedcc69dae9790ad910285d5c75c2e4314d033
This commit is contained in:
Matthew Flatt 2011-01-10 15:42:52 -07:00
parent 1d4626a4c1
commit a14bdb7d66
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/scribble/html-render.rkt
View File

@ -1004,14 +1004,21 @@
[height ,(to-num (read-bytes 4 in))])] [height ,(to-num (read-bytes 4 in))])]
[else [else
null])))])]) null])))])])
`((,(if svg? 'iframe 'img) (let ([srcref (let ([p (install-file src)])
([src ,(let ([p (install-file src)]) (if (path? p)
(if (path? p) (url->string (path->url (path->complete-path p)))
(url->string (path->url (path->complete-path p))) p))])
p))] `((,(if svg? 'object 'img)
[alt ,(content->string (element-content e))] ([,(if svg? 'data 'src) ,srcref]
,@sz [alt ,(content->string (element-content e))]
,@(attribs)))))] ,@(if svg?
`([type "image/svg+xml"])
null)
,@sz
,@(attribs))
,@(if svg?
`((param ([name "src"] [value ,srcref])))
null)))))]
[(and (or (element? e) (multiarg-element? e)) [(and (or (element? e) (multiarg-element? e))
(ormap (lambda (v) (and (script-property? v) v)) (ormap (lambda (v) (and (script-property? v) v))
(let ([s (if (element? e) (let ([s (if (element? e)