 ;; 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]
  (js/alert "TODO: broken")
  #_(ptk/reify ::set-shape-proportion-lock
    ptk/UpdateEvent
    (update [_ state]
      (let [page-id (:current-page-id state)
            shape (get-in state [:workspace-data page-id :objects id])]
        (if-not lock
          (assoc-in state [:workspace-data page-id :objects id :proportion-lock] lock))
          (->> (geom/assign-proportions (assoc shape :proportion-lock lock))
               (assoc-in state [:workspace-data page-id :objects id]))))))

;; --- Update Shape Position

(s/def ::x number?)

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

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