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

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


(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?)
