Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-11 07:11:32 -05:00
Code Issues Activity

🐛 Fix concat changes

Browse source
This commit is contained in:
Alejandro Alonso 2024-03-07 10:54:03 +01:00
parent 24fb48ea0f
commit b3f97fe456
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
common/src/app/common/files/changes_builder.cljc
View file

@ -109,11 +109,12 @@
[changes f] [changes f]
(update changes :redo-changes #(mapv f %))) (update changes :redo-changes #(mapv f %)))
;; redo-changes is a vector and :undo-changes is a list
(defn concat-changes (defn concat-changes
[changes1 changes2] [changes1 changes2]
(-> changes1 (-> changes1
(update :redo-changes d/concat-vec (:redo-changes changes2)) (update :redo-changes d/concat-vec (:redo-changes changes2))
(update :undo-changes d/concat-vec (:undo-changes changes2)))) (update :undo-changes #(concat (:undo-changes changes2) %))))
; TODO: remove this when not needed ; TODO: remove this when not needed
(defn- assert-page-id! (defn- assert-page-id!