mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 08:50:57 -05:00
🐛 Fix problem with changes builder
This commit is contained in:
parent
c23cf2a5a6
commit
9d6bd64027
1 changed files with 16 additions and 7 deletions
|
@ -376,14 +376,23 @@
|
||||||
attrs (seq attrs)]
|
attrs (seq attrs)]
|
||||||
(if-let [attr (first attrs)]
|
(if-let [attr (first attrs)]
|
||||||
(let [old-val (get old attr)
|
(let [old-val (get old attr)
|
||||||
new-val (get new attr)]
|
new-val (get new attr)
|
||||||
|
changed? (not= old-val new-val)
|
||||||
|
|
||||||
(recur (conj rops {:type :set :attr attr :val new-val
|
rops
|
||||||
:ignore-geometry ignore-geometry?
|
(cond-> rops
|
||||||
:ignore-touched ignore-touched})
|
changed?
|
||||||
(conj uops {:type :set :attr attr :val old-val
|
(conj {:type :set :attr attr :val new-val
|
||||||
:ignore-touched true})
|
:ignore-geometry ignore-geometry?
|
||||||
(rest attrs)))
|
:ignore-touched ignore-touched}))
|
||||||
|
|
||||||
|
uops
|
||||||
|
(cond-> uops
|
||||||
|
changed?
|
||||||
|
(conj {:type :set :attr attr :val old-val
|
||||||
|
:ignore-touched true}))]
|
||||||
|
|
||||||
|
(recur rops uops (rest attrs)))
|
||||||
[rops uops])))
|
[rops uops])))
|
||||||
|
|
||||||
update-shape
|
update-shape
|
||||||
|
|
Loading…
Reference in a new issue