From 895fb3b480a51d2281fd59f4ac75268f529dd775 Mon Sep 17 00:00:00 2001 From: Alejandro Alonso Date: Tue, 5 Mar 2024 11:12:39 +0100 Subject: [PATCH] :tada: Remove shapes-group --- common/src/app/common/files/changes.cljc | 7 ++----- common/src/app/common/types/shape_tree.cljc | 6 ++---- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/common/src/app/common/files/changes.cljc b/common/src/app/common/files/changes.cljc index 2f1858505..c200749d8 100644 --- a/common/src/app/common/files/changes.cljc +++ b/common/src/app/common/files/changes.cljc @@ -507,8 +507,7 @@ (and (:shape-ref parent) (#{:group :frame} (:type parent)) (not ignore-touched)) - (-> (update :touched cfh/set-touched-group :shapes-group) - (dissoc :remote-synced))))) + (dissoc :remote-synced)))) (remove-from-old-parent [old-objects objects shape-id] (let [prev-parent-id (dm/get-in old-objects [shape-id :parent-id])] @@ -525,9 +524,7 @@ (-> objects (d/update-in-when [pid :shapes] d/without-obj sid) (d/update-in-when [pid :shapes] d/vec-without-nils) - (cond-> component? (d/update-when pid #(-> % - (update :touched cfh/set-touched-group :shapes-group) - (dissoc :remote-synced))))))))) + (cond-> component? (d/update-when pid #(dissoc % :remote-synced)))))))) (update-parent-id [objects id] (-> objects (d/update-when id assoc :parent-id parent-id))) diff --git a/common/src/app/common/types/shape_tree.cljc b/common/src/app/common/types/shape_tree.cljc index 92e8880be..646c26641 100644 --- a/common/src/app/common/types/shape_tree.cljc +++ b/common/src/app/common/types/shape_tree.cljc @@ -40,8 +40,7 @@ (update :shapes update-parent-shapes) (update :shapes d/vec-without-nils) (cond-> (and (ctk/in-component-copy? parent) (not ignore-touched)) - (-> (update :touched cfh/set-touched-group :shapes-group) - (dissoc :remote-synced))))) + (dissoc :remote-synced)))) update-objects (fn [objects parent-id] @@ -85,8 +84,7 @@ (let [parent (update parent :shapes d/without-obj shape-id)] (cond-> parent (and (:shape-ref parent) (not ignore-touched)) - (-> (update :touched cfh/set-touched-group :shapes-group) - (dissoc :remote-synced))))) + (dissoc :remote-synced)))) (delete-from-objects [objects] (if-let [target (get objects shape-id)]