3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-29 11:06:14 +02:00
Code Issues Projects Releases Packages Wiki Activity

Add missing attributes on shape svg rendering.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-20 19:25:35 +02:00
parent a832bf89b4
commit 49cff5429e
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/uxbox/ui/shapes.cljs
View file

@ -14,14 +14,14 @@
(defn- extract-attrs
"Extract predefinet attrs from shapes."
[shape]
(select-keys shape [:rotation :width :height
:x :y :opacity :fill :view-box]))
(select-keys shape [:fill :opacity]))
(defn- make-debug-attrs
[attrs]
(let [xf (map (fn [[x v]]
[(keyword (str "data-" (name x))) v]))]
(into {} xf attrs)))
[shape]
(let [attrs (select-keys shape [:rotation :width :height :x :y])
xf (map (fn [[x v]]
[(keyword (str "data-" (name x))) v]))]
(into {} xf attrs)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation
@ -32,10 +32,9 @@
(let [key (str "use-" id)
transform (-> (merge shape attrs)
(svg/calculate-transform))
attrs {:id key :key key :transform transform}
attrs (-> (extract-attrs shape)
(make-debug-attrs)
(merge attrs))]
attrs (merge {:id key :key key :transform transform}
(extract-attrs shape)
(make-debug-attrs shape))]
(html
[:g attrs data])))