3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-24 20:56:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

Move some logic from events to state management.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-03 17:07:18 +02:00
parent 48af590bd8
commit 25d4297df5
2 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -338,19 +338,13 @@
(defn drop-shape (defn drop-shape
"Event used in drag and drop for transfer shape "Event used in drag and drop for transfer shape
from one position to an other." from one position to an other."
[sid tid type] [sid tid loc]
{:pre [(not (nil? tid)) {:pre [(not (nil? tid))
(not (nil? sid))]} (not (nil? sid))]}
(reify (reify
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(if (= tid sid) (stsh/drop-shape state tid sid loc))))
state
(case type
:inside (stsh/drop-inside state tid sid)
:before (stsh/drop-before state tid sid)
:after (stsh/drop-after state tid sid)
(throw (ex-info "Invalid data" {})))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Events (for selected) ;; Events (for selected)

10
src/uxbox/state/shapes.cljs
View file

@ -117,3 +117,13 @@
(assoc-in $ [:shapes-by-id tid :items] (conj shapes sid)) (assoc-in $ [:shapes-by-id tid :items] (conj shapes sid))
(update-in $ [:shapes-by-id sid] assoc :group tid)) (update-in $ [:shapes-by-id sid] assoc :group tid))
state))) state)))
(defn drop-shape
[state tid sid loc]
(if (= tid sid)
state
(case loc
:inside (drop-inside state tid sid)
:before (drop-before state tid sid)
:after (drop-after state tid sid)
(throw (ex-info "Invalid data" {})))))