 ;; Event mainly used for handling user modification of the size of the
 ;; object from workspace sidebar options inputs.
 
-;; TODO: maybe replace directly with dwc/update-shapes?
-
 (defn update-dimensions
   [ids attr value]
   (us/verify (s/coll-of ::us/uuid) ids)

                     (file-initialized project-id file-id))))
       ))))



(defn- file-initialized
  [project-id file-id]
  (ptk/reify ::file-initialized


(defn set-shape-proportion-lock
  [id lock]
  (ptk/reify ::set-shape-proportion-lock
    ptk/WatchEvent
    (watch [_ state stream]
      (rx/of (dwc/update-shapes [id] (fn [shape]
                                       (if-not lock
                                         (assoc shape :proportion-lock false)
                                         (-> (assoc shape :proportion-lock true)
                                             (geom/assign-proportions)))))))))
;; --- Update Shape Position

(s/def ::x number?)
