Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 08:50:57 -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.schema :as sc]
[uxbox.time :as time] [uxbox.time :as time]
[uxbox.xforms :as xf] [uxbox.xforms :as xf]
[uxbox.shapes :as shapes])) [uxbox.shapes :as sh]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Schemas ;; Schemas
@ -177,7 +177,7 @@
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(let [shape (get-in state [:shapes-by-id sid])] (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 (defn update-shape-rotation
[sid rotation] [sid rotation]
@ -188,7 +188,7 @@
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(update-in state [:shapes-by-id sid] (update-in state [:shapes-by-id sid]
shapes/-rotate rotation)))) sh/-rotate rotation))))
(defn update-shape-size (defn update-shape-size
[sid {:keys [width height lock] :as opts}] [sid {:keys [width height lock] :as opts}]
@ -210,10 +210,7 @@
(reify (reify
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(update-in state [:shapes-by-id sid] (update-in state [:shapes-by-id sid] sh/-initialize opts))))
merge
(when x {:x x})
(when y {:y y})))))
;; TODO: rename fill to "color" for consistency. ;; TODO: rename fill to "color" for consistency.