Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-26 08:45:34 -05:00
Code Issues Activity

Code cleaing on draw area.

Browse source
This commit is contained in:
Andrey Antukh 2016-08-12 20:50:16 +03:00
parent 5e8a3f2bfc
commit 6b8b6ac5b9
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 18 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
src/uxbox/main/ui/workspace/drawarea.cljs
View file

@ -63,9 +63,6 @@
(declare on-init-draw-icon)
(declare on-init-draw-path)
(declare on-init-draw-generic)
(declare on-draw-start)
(declare on-draw)
(declare on-draw-complete)
(defn- watch-draw-actions
[]
@ -162,7 +159,6 @@
(on-end []
(let [shape (normalize-shape @drawing-shape)]
(println "on-end" shape)
(rs/emit! (uds/add-shape shape)
(udw/select-for-drawing nil)
(uds/select-first-shape))
@ -192,30 +188,22 @@
(rx/skip-while #(nil? @drawing-shape))
(rx/with-latest-from vector wb/mouse-ctrl-s))]
(rx/subscribe firstpos (fn [{:keys [x y] :as pt}]
(let [shape (geom/setup shape {:x1 x :y1 y
:x2 x :y2 y})]
(reset! drawing-shape shape))))
(rx/subscribe stream on-draw nil on-draw-complete)))
(letfn [(on-start [{:keys [x y] :as pt}]
(let [shape (geom/setup shape {:x1 x :y1 y :x2 x :y2 y})]
(reset! drawing-shape shape)))
;; (defn- on-draw-start
;; [shape {:keys [x y] :as pt}]
;; (let [shape (geom/setup shape {:x1 x :y1 y :x2 x :y2 y})]
;; (reset! drawing-shape shape)))
(defn- on-draw
[[pt ctrl?]]
(let [pt (gpt/divide pt @wb/zoom-ref)]
(reset! drawing-position (assoc pt :lock ctrl?))))
(defn- on-draw-complete
[]
(let [shape @drawing-shape
shpos @drawing-position
shape (geom/resize shape shpos)]
(rs/emit! (uds/add-shape shape)
(udw/select-for-drawing nil)
(uds/select-first-shape))
(reset! drawing-position nil)
(reset! drawing-shape nil)
(rlocks/release! :ui/draw)))
(on-draw [[pt ctrl?]]
(let [pt (gpt/divide pt @wb/zoom-ref)]
(reset! drawing-position (assoc pt :lock ctrl?))))
(on-end []
(let [shape @drawing-shape
shpos @drawing-position
shape (geom/resize shape shpos)]
(rs/emit! (uds/add-shape shape)
(udw/select-for-drawing nil)
(uds/select-first-shape))
(reset! drawing-position nil)
(reset! drawing-shape nil)
(rlocks/release! :ui/draw)))]
(rx/subscribe firstpos on-start)
(rx/subscribe stream on-draw nil on-end))))