0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 16:21:57 -05:00

Fix bugs introduced in previous commit.

This commit is contained in:
Andrey Antukh 2016-01-07 00:56:25 +02:00
parent 1924570ea1
commit a64c18eff7

View file

@ -6,7 +6,7 @@
[uxbox.util.data :refer (remove-nil-vals)]))
(defn- transform-attr
[acc key value]
[data acc key value]
(case key
:view-box
(assoc! acc key (apply str (interpose " " value)))
@ -15,8 +15,7 @@
(assoc! acc :preserveAspectRatio (if value "xMidYMid" "none"))
:rotation
(let [width (nth (:view-box data) 3)
center-x (+ (:x data) (/ (:width data) 2))
(let [center-x (+ (:x data) (/ (:width data) 2))
center-y (+ (:y data) (/ (:height data) 2))]
(assoc! acc :transform (str/format "rotate(%s %s %s)"
value center-x center-y)))
@ -26,7 +25,9 @@
(defn- transform-attrs
[data]
(persistent!
(reduce-kv transform-attr (transient {}) data)))
(reduce-kv (partial transform-attr data)
(transient {})
data)))
(defn- extract-attrs
"Extract predefinet attrs from shapes."