3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-31 03:28:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

⚡ Frame thumbnails

Browse source
This commit is contained in:
alonso.torres 2021-05-10 12:02:54 +02:00 • committed by Andrey Antukh
parent b4351208cc
commit e1dfd91e24
15 changed files with 427 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

11
frontend/src/app/main/data/workspace/changes.cljs
View file

@ -62,7 +62,8 @@
(defn update-shapes
([ids f] (update-shapes ids f nil))
([ids f {:keys [reg-objects?] :or {reg-objects? false}}]
([ids f {:keys [reg-objects? save-undo?]
:or {reg-objects? false save-undo? true}}]
(us/assert ::coll-of-uuid ids)
(us/assert fn? f)
(ptk/reify ::update-shapes
@ -82,7 +83,8 @@
(when (and has-rch? has-uch?)
(commit-changes {:redo-changes rch
:undo-changes uch
:origin it}))))
:origin it
:save-undo? save-undo?}))))
(let [id (first ids)
obj1 (get objects id)
@ -164,6 +166,7 @@
[{:keys [redo-changes undo-changes origin save-undo? file-id]
:or {save-undo? true}}]
(log/debug :msg "commit-changes"
:js/redo-changes redo-changes
:js/undo-changes undo-changes)
@ -182,12 +185,14 @@
(let [current-file-id (get state :current-file-id)
file-id (or file-id current-file-id)
path (if (= file-id current-file-id)
[:workspace-data]
[:workspace-libraries file-id :data])]
(try
(us/assert ::spec/changes redo-changes)
(us/assert ::spec/changes undo-changes)
(update-in state path cp/process-changes redo-changes false)
(catch :default e
(vreset! error e)
state))))
@ -217,4 +222,4 @@
(when (and save-undo? (seq undo-changes))
(let [entry {:undo-changes undo-changes
:redo-changes redo-changes}]
(rx/of (dwu/append-undo entry)))))))))))
(rx/of (dwu/append-undo entry)))))))))))