Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-11 01:28:30 -05:00
Code Issues Activity

Add selrect drawing in the canvas.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-01 22:27:21 +02:00
parent d60e47dccf
commit 8bc2da0af0
1 changed files with 44 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
frontend/uxbox/ui/workspace/base.cljs
View file

@ -69,6 +69,9 @@
(defonce shapes-dragging? (atom false))
(defonce selrect-dragging? (atom false))
(defonce selrect-pos (atom nil))
(defonce mouse-b (rx/bus))
(defonce mouse-s (rx/dedupe mouse-b))
@ -94,6 +97,47 @@
(doseq [sid @selected-state]
(rs/emit! (dw/move-shape sid delta)))))))
(defn selrect->rect
[data]
(let [start (:start data)
current (:current data )
start-x (min (first start) (first current))
start-y (min (second start) (second current))
current-x (max (first start) (first current))
current-y (max (second start) (second current))
width (- current-x start-x)
height (- current-y start-y)]
{:x start-x
:y start-y
:width (- current-x start-x)
:height (- current-y start-y)}))
(defonce $$selrect-subscription-0$$
(let [ss (as-> (rx/from-atom selrect-dragging?) $
(rx/dedupe $)
(rx/merge $ (rx/of false))
(rx/buffer 2 1 $)
(rx/share $))]
(as-> ss $
(rx/filter #(= (vec %) [false true]) $)
(rx/with-latest-from vector mouse-s $)
(rx/on-value $ (fn [[_ pos]]
(swap! selrect-pos assoc
:start pos
:current pos))))
(as-> ss $
(rx/filter #(= (vec %) [true false]) $)
(rx/on-value $ (fn []
(let [selrect (selrect->rect @selrect-pos)]
(rs/emit! (dw/select-shapes selrect))
(reset! selrect-pos nil)))))))
(defonce $$selrect-subscription-1$$
(as-> mouse-s $
(rx/filter #(deref selrect-dragging?) $)
(rx/on-value $ (fn [pos]
(swap! selrect-pos assoc :current pos)))))
;; Materialized views
(defonce mouse-position (rx/to-atom (rx/sample 50 mouse-s)))