        (rx/filter #(= (:id %) (:id @page-l)))
        (rx/map :coords)))
 
-;; Deltas
-
 (defn- coords-delta
   [[old new]]
   (let [[oldx oldy] old

;; 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)))

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

(defonce bounding-rect (atom {}))
