CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-12 21:36:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Code cleaning on drawarea.

Browse Source
This commit is contained in:
Andrey Antukh
2016-08-28 10:23:47 +03:00
parent d6d38d207d
commit 53621ceeeb
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/uxbox/main/ui/workspace/drawarea.cljs
View File

@@ -79,12 +79,12 @@
[{:keys [points] :as shape}]
(letfn [(on-click [event]
(dom/stop-propagation event)
(swap! drawing-shape
(fn [shape]
(let [points (:points shape)
points (vec (butlast points))]
(assoc shape :points points :close? true))))
(rx/push! drawing-stoper true))]
(swap! drawing-shape drop-last-point)
(rx/push! drawing-stoper true))
(drop-last-point [shape]
(let [points (:points shape)
points (vec (butlast points))]
(assoc shape :points points :close? true)))]
(let [{:keys [x y]} (first points)]
[:g
(-> (assoc shape :drawing? true)