From 541a372f01bbb2ef6b9be7d60f8f47e2e6a1253a Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Fri, 5 May 2023 14:13:43 +0200 Subject: [PATCH] :lipstick: Add cosmetic changes to duplicate-page function --- frontend/src/app/main/data/workspace.cljs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs index cc2ba101da..a8898b11dd 100644 --- a/frontend/src/app/main/data/workspace.cljs +++ b/frontend/src/app/main/data/workspace.cljs @@ -449,10 +449,12 @@ page (get-in state [:workspace-data :pages-index page-id]) name (cp/generate-unique-name unames (:name page)) - no_thumbnails_objects (->> (:objects page) - (d/mapm (fn [_ val] (dissoc val :use-for-thumbnail?)))) - - page (-> page (assoc :name name :id id :objects no_thumbnails_objects)) + page (-> page + (assoc :name name) + (assoc :id id) + (assoc :objects + (->> (:objects page) + (d/mapm (fn [_ val] (dissoc val :use-for-thumbnail?)))))) changes (-> (pcb/empty-changes it) (pcb/add-page id page))] @@ -1265,7 +1267,7 @@ not-group-like? (and (= (count selected) 1) (not (contains? #{:group :bool} (:type head)))) - + no-bool-shapes? (->> all-selected (some (comp #{:frame :text} :type)))] (rx/concat