             [uxbox.util.geom.point :as gpt]
             [uxbox.util.data :refer (index-of)]))
 
+;; --- Shapes CRUD
+
 (defn add-shape
   "Create and add shape to the current selected page."
   [shape]

                 merge
                 (when rx {:rx rx})
                 (when ry {:ry ry})))))

(defn hide-shape
  [sid]

    rs/UpdateEvent
    (-apply-update [_ state]
      (update-in state [:shapes-by-id id] merge shape))))

;; --- Shape Transformations

(defn move-shape
  "Move shape using relative position (delta)."
