 ;; Interactions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; (defonce shapes-dragging? (atom false))
-;; (defonce selrect-dragging? (atom false))
 (defonce interactions-b (rx/bus))
 
 (defn emit-interaction!

       (rx/buffer 2 1)
       (rx/map coords-delta)))

;; Materialized views

(defonce mouse-position
  (->> mouse-s
       (rx/sample 50)
       (rx/to-atom)))

(defonce bounding-rect (atom {}))

  (as-> (l/in [:workspace]) $
    (l/focus-atom $ st/state)))

(def ^:static selected-shapes-l
  (as-> (l/in [:workspace :selected]) $
    (l/focus-atom $ st/state)))

(def ^:static toolboxes-l
  (as-> (l/in [:workspace :toolboxes]) $
    (l/focus-atom $ st/state)))

(def ^:static flags-l
