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

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
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 6 additions and 6 deletions
Show stats 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)