🐛 Fix generating unnecessary thumbnails

This commit is contained in:
Aitor 2024-01-04 14:25:22 +01:00 committed by Alonso Torres
parent a76e5940af
commit b47cea7ead
3 changed files with 33 additions and 35 deletions

View file

@ -243,6 +243,12 @@
(prn (str (:name frame) " - " (:id frame))))
nil))
(defn ^:export select-by-object-id
[object-id]
(let [[_ page-id shape-id _] (str/split object-id #"/")]
(st/emit! (dw/go-to-page (uuid/uuid page-id)))
(st/emit! (dws/select-shape (uuid/uuid shape-id)))))
(defn ^:export select-by-id
[shape-id]
(st/emit! (dws/select-shape (uuid/uuid shape-id))))