Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 00:40:30 -05:00
Code Issues Activity

Minor ns renaming.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-28 20:23:05 +02:00
parent bc756337cd
commit 462b9681e1
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/uxbox/data/workspace.cljs
View file

@ -8,7 +8,7 @@
[uxbox.schema :as sc]
[uxbox.time :as time]
[uxbox.xforms :as xf]
[uxbox.shapes :as shapes]))
[uxbox.shapes :as sh]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Schemas
@ -177,7 +177,7 @@
rs/UpdateEvent
(-apply-update [_ state]
(let [shape (get-in state [:shapes-by-id sid])]
(update-in state [:shapes-by-id sid] shapes/-move {:dx dx :dy dy})))))
(update-in state [:shapes-by-id sid] sh/-move {:dx dx :dy dy})))))
(defn update-shape-rotation
[sid rotation]
@ -188,7 +188,7 @@
rs/UpdateEvent
(-apply-update [_ state]
(update-in state [:shapes-by-id sid]
shapes/-rotate rotation))))
sh/-rotate rotation))))
(defn update-shape-size
[sid {:keys [width height lock] :as opts}]
@ -210,10 +210,7 @@
(reify
rs/UpdateEvent
(-apply-update [_ state]
(update-in state [:shapes-by-id sid]
merge
(when x {:x x})
(when y {:y y})))))
(update-in state [:shapes-by-id sid] sh/-initialize opts))))
;; TODO: rename fill to "color" for consistency.