Revert some changes from previous merge

This commit is contained in:
Andrey Antukh 2022-09-14 11:15:29 +02:00
parent 4af851d4c6
commit 8e2ccfb4b0

View file

@ -161,29 +161,28 @@
(ptk/reify ::ungroup-selected (ptk/reify ::ungroup-selected
ptk/WatchEvent ptk/WatchEvent
(watch [it state _] (watch [it state _]
(let [page-id (:current-page-id state) (let [page-id (:current-page-id state)
objects (wsh/lookup-page-objects state page-id) objects (wsh/lookup-page-objects state page-id)
is-group? #(or (= :bool (:type %)) (= :group (:type %)))
lookup #(get objects %) prepare
prepare #(prepare-remove-group it page-id % objects) (fn [shape-id]
selected (wsh/lookup-selected state) (let [shape (get objects shape-id)]
children (into (d/ordered-set) (cond
(mapcat #(->> % (or (cph/group-shape? shape) (cph/bool-shape? shape))
lookup (remove-group-changes it page-id shape objects)
:shapes) selected))
(cph/frame-shape? shape)
(remove-frame-changes it page-id shape objects))))
changes-list (sequence changes-list (sequence
(comp (map lookup) (keep prepare)
(filter is-group?) (wsh/lookup-selected state))
(map prepare))
selected)
changes {:redo-changes (vec (mapcat :redo-changes changes-list)) changes {:redo-changes (vec (mapcat :redo-changes changes-list))
:undo-changes (vec (mapcat :undo-changes changes-list)) :undo-changes (vec (mapcat :undo-changes changes-list))
:origin it}] :origin it}]
(rx/of (dch/commit-changes changes) (rx/of (dch/commit-changes changes))))))
(dws/select-shapes children))))))
(def mask-group (def mask-group
(ptk/reify ::mask-group (ptk/reify ::mask-group