github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-14 16:09:01 +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
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}] [{:keys [points] :as shape}]
(letfn [(on-click [event] (letfn [(on-click [event]
(dom/stop-propagation event) (dom/stop-propagation event)
(swap! drawing-shape (swap! drawing-shape drop-last-point)
(fn [shape] (rx/push! drawing-stoper true))
(let [points (:points shape) (drop-last-point [shape]
points (vec (butlast points))] (let [points (:points shape)
(assoc shape :points points :close? true)))) points (vec (butlast points))]
(rx/push! drawing-stoper true))] (assoc shape :points points :close? true)))]
(let [{:keys [x y]} (first points)] (let [{:keys [x y]} (first points)]
[:g [:g
(-> (assoc shape :drawing? true) (-> (assoc shape :drawing? true)