More tests for snap data

This commit is contained in:
alonso.torres 2022-01-24 14:49:23 +01:00
parent 39334b81ac
commit d9b1c0e2e6
3 changed files with 263 additions and 30 deletions

View file

@ -102,7 +102,6 @@
:type :guide
:id (:id guide)
:pt %)))]
(if-let [frame-id (:frame-id guide)]
;; Guide inside frame, we add the information only on that frame
(-> page-data
@ -111,7 +110,7 @@
;; Guide outside the frame. We add the information in the global guides data
(-> page-data
(assoc-in [:guides :objects-data (:id guide)] [guide-data])
(assoc-in [:guides :objects-data (:id guide)] guide-data)
(update-in [:guides (:axis guide)] (make-insert-tree-data guide-data (:axis guide)))))))
(defn remove-frame