3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-14 08:07:16 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add write methods to prototype API

Browse source
This commit is contained in:
alonso.torres 2024-07-23 16:55:32 +02:00
parent 6454e878dd
commit 2d25df33ce
8 changed files with 622 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -113,6 +113,25 @@
(when (and (some? file-id) (some? id))
(locate-library-component file-id id))))
(defn proxy->flow
[proxy]
(let [file-id (obj/get proxy "$file")
page-id (obj/get proxy "$page")
flow-id (obj/get proxy "$id")
page (locate-page file-id page-id)]
(when (some? page)
(d/seek #(= (:id %) flow-id) (-> page :options :flows)))))
(defn proxy->interaction
[proxy]
(let [file-id (obj/get proxy "$file")
page-id (obj/get proxy "$page")
shape-id (obj/get proxy "$shape")
index (obj/get proxy "$index")
shape (locate-shape file-id page-id shape-id)]
(when (some? shape)
(get-in shape [:interactions index]))))
(defn get-data
([self attr]
(-> (obj/get self "_data")