Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 21:09:00 -05:00
Code Issues Activity

Fix wrong stata querying on shape moviment streams.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-22 19:38:14 +02:00
parent 6ee5d08086
commit 84d87dcc4f
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/uxbox/ui/workspace/base.cljs
View file

@ -106,9 +106,11 @@
(rx/on-value $ (fn [delta] (rx/on-value $ (fn [delta]
(let [pageid (get-in @st/state [:workspace :page]) (let [pageid (get-in @st/state [:workspace :page])
selected (get-in @st/state [:workspace :selected]) selected (get-in @st/state [:workspace :selected])
page (get-in @st/state [:pages-by-id pageid])] shapes (->> (vals @shapes-by-id)
(doseq [sid (filter selected (:shapes page))] (filter #(= (:page %) pageid))
(rs/emit! (dw/move-shape sid delta)))))))) (filter (comp selected :id)))]
(doseq [{:keys [id group]} shapes]
(rs/emit! (dw/move-shape id delta))))))))
(defn selrect->rect (defn selrect->rect
[data] [data]