github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-27 04:08:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add alignment to resize.

Browse Source
This commit is contained in:
Andrey Antukh 2016-04-22 18:20:38 +03:00
parent 7d17926060
commit 9e25f7ab9d
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/uxbox/ui/workspace/resize.cljs
View File

@ -10,7 +10,8 @@
[uxbox.rstore :as rs]
[uxbox.data.shapes :as uds]
[uxbox.ui.core :as uuc]
[uxbox.ui.workspace.base :as uuwb]
[uxbox.ui.workspace.base :as wb]
[uxbox.ui.workspace.align :as align]
[uxbox.util.geom.point :as gpt]))
(declare initialize)
@ -33,11 +34,21 @@
stoper (->> uuc/actions-s
(rx/map :type)
(rx/filter #(empty? %))
(rx/take 1))]
(as-> uuwb/mouse-delta-s $
(rx/take-until stoper $)
(rx/with-latest-from vector uuwb/mouse-ctrl-s $)
(rx/subscribe $ #(handle-resize payload %)))))
(rx/take 1))
align? @wb/alignment-l
stream (->> wb/mouse-viewport-s
(rx/sample 10)
(rx/mapcat (fn [point]
(if align?
(align/translate 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))]
(rx/subscribe stream #(handle-resize payload %))))
(defn- handle-resize
[{:keys [vid shape]} [delta ctrl?]]