3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-01 16:28:42 +02:00
Code Issues Projects Releases Packages Wiki Activity

Add initial alignment on movement and resize.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-22 19:51:34 +03:00
parent 9e25f7ab9d
commit c2e63d5603
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
5 changed files with 68 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/uxbox/ui/workspace/resize.cljs
View file

@ -11,7 +11,6 @@
[uxbox.data.shapes :as uds]
[uxbox.ui.core :as uuc]
[uxbox.ui.workspace.base :as wb]
[uxbox.ui.workspace.align :as align]
[uxbox.util.geom.point :as gpt]))
(declare initialize)
@ -30,7 +29,7 @@
(defn- initialize
[event]
(let [payload (:payload event)
(let [{:keys [vid shape] :as payload} (:payload event)
stoper (->> uuc/actions-s
(rx/map :type)
(rx/filter #(empty? %))
@ -41,13 +40,15 @@
(rx/sample 10)
(rx/mapcat (fn [point]
(if align?
(align/translate point)
(uds/align-point point)
(rx/of point))))
(rx/buffer 2 1)
(rx/map wb/coords-delta)
(rx/take-until stoper)
(rx/map #(gpt/divide % @wb/zoom-l))
(rx/with-latest-from vector wb/mouse-ctrl-s))]
(when align?
(rs/emit! (uds/initial-vertext-align shape vid)))
(rx/subscribe stream #(handle-resize payload %))))
(defn- handle-resize