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

💄 Add cosmetic changes on workspace/changes ns

Browse source
This commit is contained in:
Andrey Antukh 2022-03-31 00:28:09 +02:00 • committed by Andrés Moya
parent f9e83f2cc7
commit 7d32d03156
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -48,20 +48,15 @@
changes (reduce changes (reduce
(fn [changes id] (fn [changes id]
(pcb/update-shapes changes (let [opts {:attrs attrs :ignore-geometry? (get ignore-tree id)}]
[id] (pcb/update-shapes changes [id] update-fn opts)))
update-fn
{:attrs attrs
:ignore-geometry? (get ignore-tree id)}))
(-> (pcb/empty-changes it page-id) (-> (pcb/empty-changes it page-id)
(pcb/set-save-undo? save-undo?) (pcb/set-save-undo? save-undo?)
(pcb/with-objects objects)) (pcb/with-objects objects))
ids)] ids)]
(when (seq (:redo-changes changes)) (when (seq (:redo-changes changes))
(let [changes (cond-> changes (let [changes (cond-> changes reg-objects? (pcb/resize-parents ids))]
reg-objects?
(pcb/resize-parents ids))]
(rx/of (commit-changes changes))))))))) (rx/of (commit-changes changes)))))))))
(defn update-indices (defn update-indices