3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-06 18:45:54 +02:00
Code Issues Projects Releases Packages Wiki Activity

Minor renaming.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-02 21:34:47 +02:00
parent 787a31ac4d
commit bae3d7d9ef
3 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -335,7 +335,7 @@
(rx/from-coll (rx/from-coll
(map unlock-shape (:items shape)))))))) (map unlock-shape (:items shape))))))))
(defn transfer-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 type]

10
src/uxbox/ui/workspace/toolboxes/layers.cljs
View file

@ -133,8 +133,8 @@
(let [id (dnd/get-data event) (let [id (dnd/get-data event)
over (:over @local)] over (:over @local)]
(case (:over @local) (case (:over @local)
:top (rs/emit! (dw/transfer-shape id (:id item) :before)) :top (rs/emit! (dw/drop-shape id (:id item) :before))
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after))) :bottom (rs/emit! (dw/drop-shape id (:id item) :after)))
(swap! local assoc :dragging false :over nil))) (swap! local assoc :dragging false :over nil)))
(on-drag-over [event] (on-drag-over [event]
(dom/prevent-default event) (dom/prevent-default event)
@ -210,9 +210,9 @@
(let [id (dnd/get-data event) (let [id (dnd/get-data event)
over (:over @local)] over (:over @local)]
(case (:over @local) (case (:over @local)
:top (rs/emit! (dw/transfer-shape id (:id item) :before)) :top (rs/emit! (dw/drop-shape id (:id item) :before))
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after)) :bottom (rs/emit! (dw/drop-shape id (:id item) :after))
:middle (rs/emit! (dw/transfer-shape id (:id item) :inside))) :middle (rs/emit! (dw/drop-shape id (:id item) :inside)))
(swap! local assoc :dragging false :over nil))) (swap! local assoc :dragging false :over nil)))
(on-drag-over [event] (on-drag-over [event]
(dom/prevent-default event) (dom/prevent-default event)

16
test/uxbox/data/workspace_tests.cljs
View file

@ -4,14 +4,14 @@
[uxbox.rstore :as rs] [uxbox.rstore :as rs]
[uxbox.data.workspace :as dw])) [uxbox.data.workspace :as dw]))
(t/deftest transfer-shape-test (t/deftest drop-shape-test
(t/testing "case 1: move shape before other shape" (t/testing "case 1: move shape before other shape"
(let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}} (let [initial {:pages-by-id {1 {:id 1 :shapes [1 2 3]}}
:shapes-by-id {1 {:id 1 :page 1} :shapes-by-id {1 {:id 1 :page 1}
2 {:id 2 :page 1} 2 {:id 2 :page 1}
3 {:id 3 :page 1}}} 3 {:id 3 :page 1}}}
expected (assoc-in initial [:pages-by-id 1 :shapes] [3 1 2]) expected (assoc-in initial [:pages-by-id 1 :shapes] [3 1 2])
event (dw/transfer-shape 3 1 :before) event (dw/drop-shape 3 1 :before)
result (rs/-apply-update event initial)] result (rs/-apply-update event initial)]
;; (pprint expected) ;; (pprint expected)
;; (pprint result) ;; (pprint result)
@ -24,7 +24,7 @@
2 {:id 2 :page 1} 2 {:id 2 :page 1}
3 {:id 3 :page 1}}} 3 {:id 3 :page 1}}}
expected (assoc-in initial [:pages-by-id 1 :shapes] [1 3 2]) expected (assoc-in initial [:pages-by-id 1 :shapes] [1 3 2])
event (dw/transfer-shape 3 1 :after) event (dw/drop-shape 3 1 :after)
result (rs/-apply-update event initial)] result (rs/-apply-update event initial)]
(t/is (= result expected)) (t/is (= result expected))
(t/is (vector? (get-in result [:pages-by-id 1 :shapes]))))) (t/is (vector? (get-in result [:pages-by-id 1 :shapes])))))
@ -37,7 +37,7 @@
2 {:id 2 :page 1 :group 1} 2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1} 3 {:id 3 :page 1}
4 {:id 4 :page 1}}} 4 {:id 4 :page 1}}}
event (dw/transfer-shape 3 2 :before) event (dw/drop-shape 3 2 :before)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1 4]) (assoc-in [:pages-by-id 1 :shapes] [1 4])
(assoc-in [:shapes-by-id 1 :items] [3 2]) (assoc-in [:shapes-by-id 1 :items] [3 2])
@ -54,7 +54,7 @@
2 {:id 2 :page 1 :group 1} 2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1} 3 {:id 3 :page 1}
4 {:id 4 :page 1}}} 4 {:id 4 :page 1}}}
event (dw/transfer-shape 3 1 :inside) event (dw/drop-shape 3 1 :inside)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1 4]) (assoc-in [:pages-by-id 1 :shapes] [1 4])
(assoc-in [:shapes-by-id 1 :items] [2 3]) (assoc-in [:shapes-by-id 1 :items] [2 3])
@ -73,7 +73,7 @@
2 {:id 2 :page 1 :group 1} 2 {:id 2 :page 1 :group 1}
3 {:id 3 :page 1 :group 1} 3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1}}} 4 {:id 4 :page 1}}}
event (dw/transfer-shape 3 4 :after) event (dw/drop-shape 3 4 :after)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1 4 3]) (assoc-in [:pages-by-id 1 :shapes] [1 4 3])
(assoc-in [:shapes-by-id 1 :items] [2]) (assoc-in [:shapes-by-id 1 :items] [2])
@ -92,7 +92,7 @@
:items [4]} :items [4]}
3 {:id 3 :page 1 :group 1} 3 {:id 3 :page 1 :group 1}
4 {:id 4 :page 1 :group 2}}} 4 {:id 4 :page 1 :group 2}}}
event (dw/transfer-shape 2 3 :after) event (dw/drop-shape 2 3 :after)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [1]) (assoc-in [:pages-by-id 1 :shapes] [1])
(assoc-in [:shapes-by-id 1 :items] [3 2]) (assoc-in [:shapes-by-id 1 :items] [3 2])
@ -115,7 +115,7 @@
:items [4]} :items [4]}
3 {:id 3 :page 1} 3 {:id 3 :page 1}
4 {:id 4 :page 1 :group 2}}} 4 {:id 4 :page 1 :group 2}}}
event (dw/transfer-shape 2 1 :after) event (dw/drop-shape 2 1 :after)
expected (-> initial expected (-> initial
(assoc-in [:pages-by-id 1 :shapes] [2 3]) (assoc-in [:pages-by-id 1 :shapes] [2 3])
(update-in [:shapes-by-id] dissoc 1) (update-in [:shapes-by-id] dissoc 1)