🐛 Fix paste frame removes all guides

Signed-off-by: Andrei Zhurau <zhurov.andrew@gmail.com>
This commit is contained in:
Andrew Zhurov 2022-07-27 20:44:21 +03:00
parent 1174502cb8
commit 902c746dbb

View file

@ -425,11 +425,9 @@
(assoc :position (if (= (:axis %) :x) (assoc :position (if (= (:axis %) :x)
(+ (:position %) (- (:x new-frame) (:x frame))) (+ (:position %) (- (:x new-frame) (:x frame)))
(+ (:position %) (- (:y new-frame) (:y frame))))))))] (+ (:position %) (- (:y new-frame) (:y frame))))))))]
(cond-> g
(if-not (empty? new-guides) (not-empty new-guides)
(conj g (conj (into {} (map (juxt :id identity) new-guides))))))
(into {} (map (juxt :id identity) new-guides)))
{})))
guides guides
frames)] frames)]
(-> (pcb/with-page changes page) (-> (pcb/with-page changes page)