github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-14 16:09:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #4229 from penpot/superalex-fix-concat-changes

Browse Source 
🐛 Fix concat changes
This commit is contained in:
Pablo Alba 2024-03-07 10:58:26 +01:00 committed by GitHub
commit 875ea58a01
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
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!