Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-06 20:11:29 -05:00
Code Issues Activity

Use new dom helpers instead of js interop for svg icon parsing.

Browse source
This commit is contained in:
Andrey Antukh 2016-10-24 22:14:30 +02:00
parent 34e84fbd01
commit 68fe5eff36
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/uxbox/main/data/icons.cljs
View file

@ -11,6 +11,7 @@
[uxbox.util.uuid :as uuid]
[uxbox.util.rstore :as rs]
[uxbox.util.router :as r]
[uxbox.util.dom :as dom]
[uxbox.util.dom.files :as files]
[uxbox.main.state :as st]
[uxbox.main.repo :as rp]))
@ -194,19 +195,18 @@
{:pre [(string? data)]}
(let [valid-tags #{"defs" "path" "circle" "rect" "metadata" "g"
"radialGradient" "stop"}
div (js/document.createElement "div")
div2 (js/document.createElement "div")
gc (js/document.createElement "div")
g (js/document.createElementNS "http://www.w3.org/2000/svg" "g")
_ (set! (.-innerHTML div) data)
svg (.querySelector div "svg")]
(loop [child (.-firstChild svg)]
div (dom/create-element "div")
gc (dom/create-element "div")
g (dom/create-element "http://www.w3.org/2000/svg" "g")
_ (dom/set-html! div data)
svg (dom/query div "svg")]
(loop [child (dom/get-first-child svg)]
(if child
(let [tagname (.-tagName child)]
(let [tagname (dom/get-tag-name child)]
(if (contains? valid-tags tagname)
(.appendChild g child)
(.appendChild gc child))
(recur (.-firstChild svg)))
(dom/append-child! g child)
(dom/append-child! gc child))
(recur (dom/get-first-child svg)))
(let [width (.. svg -width -baseVal -value)
header (.. svg -height -baseVal -value)
view-box [(.. svg -viewBox -baseVal -x)
@ -217,7 +217,7 @@
:mimetype "image/svg+xml"
:height header
:view-box view-box}]
[(.-outerHTML g) props])))))
[(dom/get-outer-html g) props])))))
(defrecord CreateIcons [id files]
rs/WatchEvent