mirror of
https://github.com/penpot/penpot.git
synced 2025-03-11 23:31:21 -05:00
💄 Add cosmetic changes on workspace/changes ns
This commit is contained in:
parent
f9e83f2cc7
commit
7d32d03156
1 changed files with 3 additions and 8 deletions
|
@ -48,20 +48,15 @@
|
|||
|
||||
changes (reduce
|
||||
(fn [changes id]
|
||||
(pcb/update-shapes changes
|
||||
[id]
|
||||
update-fn
|
||||
{:attrs attrs
|
||||
:ignore-geometry? (get ignore-tree id)}))
|
||||
(let [opts {:attrs attrs :ignore-geometry? (get ignore-tree id)}]
|
||||
(pcb/update-shapes changes [id] update-fn opts)))
|
||||
(-> (pcb/empty-changes it page-id)
|
||||
(pcb/set-save-undo? save-undo?)
|
||||
(pcb/with-objects objects))
|
||||
ids)]
|
||||
|
||||
(when (seq (:redo-changes changes))
|
||||
(let [changes (cond-> changes
|
||||
reg-objects?
|
||||
(pcb/resize-parents ids))]
|
||||
(let [changes (cond-> changes reg-objects? (pcb/resize-parents ids))]
|
||||
(rx/of (commit-changes changes)))))))))
|
||||
|
||||
(defn update-indices
|
||||
|
|
Loading…
Add table
Reference in a new issue