3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 22:56:10 +02:00
Code Issues Projects Releases Packages Wiki 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
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 (findShapes
[_] [_]
;; Returns a lazy (iterable) of all available shapes ;; Returns a lazy (iterable) of all available shapes
(let [page (locate-page $file $id)] (when (and (some? $file) (some? $id))
(apply array (sequence (map shape/shape-proxy) (keys (:objects page))))))) (let [page (locate-page $file $id)]
(apply array (sequence (map shape/shape-proxy) (keys (:objects page))))))))
(crc/define-properties! (crc/define-properties!
PageProxy PageProxy

18
frontend/src/app/plugins/utils.cljs
View file

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