Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-19 03:01:27 -05:00
Code Issues Activity

🐛 Fix problem with hot reload

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
frontend/src/app/plugins/page.cljs
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

18
frontend/src/app/plugins/utils.cljs
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]