github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-25 19:28:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add some commented code.

Browse Source
This commit is contained in:
Andrey Antukh 2016-01-23 22:08:32 +02:00
parent 16a4d4c8b4
commit 7301a774a4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/uxbox/data/workspace.cljs
View File

@ -244,6 +244,9 @@
(-apply-update [_ state]
(let [shape (get-in state [:shapes-by-id id])
shapes (map #(get-in state [:shapes-by-id %]) (:items shape))
;; shapes (->> (:items shape)
;; (map #(get-in state [:shapes-by-id %]))
;; (map (fn [v] (merge v (sh/container-rect v)))))
x (apply min (map :x shapes))
y (apply min (map :y shapes))
shapes (map #(sh/translate-coords % x y) shapes)]
@ -321,6 +324,7 @@
(-apply-watch [_ state]
(let [selected (get-in state [:workspace :selected])
mevent (rs/swap-state #(assoc-in state [:workspace :selected] #{}))]
;; (rx/just mevent)))))
(->> (map #(get-in state [:shapes-by-id %]) selected)
(rx/from-coll)
(rx/filter :group)