Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-07 15:39:42 -05:00
Code Issues Activity

Wrap in undo sequence

Browse source
This commit is contained in:
Florian Schroedl 2024-07-04 10:40:59 +02:00
parent 596480d177
commit 818aa043ca
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
frontend/src/app/main/ui/workspace/tokens/core.cljs
View file

@ -14,6 +14,7 @@
[app.main.data.workspace.changes :as dch] [app.main.data.workspace.changes :as dch]
[app.main.data.workspace.shape-layout :as dwsl] [app.main.data.workspace.shape-layout :as dwsl]
[app.main.data.workspace.transforms :as dwt] [app.main.data.workspace.transforms :as dwt]
[app.main.data.workspace.undo :as dwu]
[app.main.refs :as refs] [app.main.refs :as refs]
[app.main.store :as st] [app.main.store :as st]
[app.main.ui.workspace.tokens.style-dictionary :as sd] [app.main.ui.workspace.tokens.style-dictionary :as sd]
@ -75,14 +76,17 @@
(->> (rx/from (sd/resolve-tokens+ (get-in state [:workspace-data :tokens]))) (->> (rx/from (sd/resolve-tokens+ (get-in state [:workspace-data :tokens])))
(rx/mapcat (rx/mapcat
(fn [sd-tokens] (fn [sd-tokens]
(let [resolved-value (-> (get sd-tokens (:id token)) (let [undo-id (js/Symbol)
resolved-value (-> (get sd-tokens (:id token))
(resolve-token-value)) (resolve-token-value))
tokenized-attributes (wtt/attributes-map attributes (:id token))] tokenized-attributes (wtt/attributes-map attributes (:id token))]
(rx/of (rx/of
(dwu/start-undo-transaction undo-id)
(dch/update-shapes shape-ids (fn [shape] (dch/update-shapes shape-ids (fn [shape]
(update shape :applied-tokens merge tokenized-attributes))) (update shape :applied-tokens merge tokenized-attributes)))
(when on-update-shape (when on-update-shape
(on-update-shape resolved-value shape-ids attributes)))))))))) (on-update-shape resolved-value shape-ids attributes))
(dwu/commit-undo-transaction undo-id)))))))))
(def remove-keys #(apply dissoc %1 %2)) (def remove-keys #(apply dissoc %1 %2))