mirror of
https://github.com/penpot/penpot.git
synced 2025-05-12 17:46:38 +02:00
🐛 Fix generating unnecessary thumbnails
This commit is contained in:
parent
a76e5940af
commit
b47cea7ead
3 changed files with 33 additions and 35 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue