Add support to guides for plugins

This commit is contained in:
alonso.torres 2024-09-10 09:38:39 +02:00
parent 9e94cf7b99
commit dd0c5b7806
7 changed files with 238 additions and 7 deletions

View file

@ -122,6 +122,15 @@
(when (some? page)
(d/seek #(= (:id %) flow-id) (-> page :options :flows)))))
(defn proxy->ruler-guide
[proxy]
(let [file-id (obj/get proxy "$file")
page-id (obj/get proxy "$page")
ruler-id (obj/get proxy "$id")
page (locate-page file-id page-id)]
(when (some? page)
(d/seek #(= (:id %) ruler-id) (-> page :options :guides vals)))))
(defn proxy->interaction
[proxy]
(let [file-id (obj/get proxy "$file")