0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-18 10:41:29 -05:00

🐛 Fix problem with hot reload

This commit is contained in:
alonso.torres 2024-05-22 17:23:02 +02:00 committed by Andrey Antukh
parent 9fcb4216b6
commit 85ae3ff6f8
2 changed files with 15 additions and 8 deletions

View file

@ -28,8 +28,9 @@
(findShapes
[_]
;; Returns a lazy (iterable) of all available shapes
(let [page (locate-page $file $id)]
(apply array (sequence (map shape/shape-proxy) (keys (:objects page)))))))
(when (and (some? $file) (some? $id))
(let [page (locate-page $file $id)]
(apply array (sequence (map shape/shape-proxy) (keys (:objects page))))))))
(crc/define-properties!
PageProxy

View file

@ -56,38 +56,44 @@
(defn proxy->file
[proxy]
(let [id (obj/get proxy "$id")]
(locate-file id)))
(when (some? id)
(locate-file id))))
(defn proxy->page
[proxy]
(let [file-id (obj/get proxy "$file")
id (obj/get proxy "$id")]
(locate-page file-id id)))
(when (and (some? file-id) (some? id))
(locate-page file-id id))))
(defn proxy->shape
[proxy]
(let [file-id (obj/get proxy "$file")
page-id (obj/get proxy "$page")
id (obj/get proxy "$id")]
(locate-shape file-id page-id id)))
(when (and (some? file-id) (some? page-id) (some? id))
(locate-shape file-id page-id id))))
(defn proxy->library-color
[proxy]
(let [file-id (obj/get proxy "$file")
id (obj/get proxy "$id")]
(locate-library-color file-id id)))
(when (and (some? file-id) (some? id))
(locate-library-color file-id id))))
(defn proxy->library-typography
[proxy]
(let [file-id (obj/get proxy "$file")
id (obj/get proxy "$id")]
(locate-library-color file-id id)))
(when (and (some? file-id) (some? id))
(locate-library-color file-id id))))
(defn proxy->library-component
[proxy]
(let [file-id (obj/get proxy "$file")
id (obj/get proxy "$id")]
(locate-library-color file-id id)))
(when (and (some? file-id) (some? id))
(locate-library-color file-id id))))
(defn get-data
([self attr]