Add new handoff flex item section"

This commit is contained in:
Eva 2022-10-24 13:22:31 +02:00 committed by Alonso Torres
parent c3fe8c8ebd
commit d663d2bebf
12 changed files with 381 additions and 55 deletions

View file

@ -363,6 +363,10 @@
;; ---- Viewer refs
(defn lookup-viewer-objects-by-id
[page-id]
(l/derived #(wsh/lookup-viewer-objects % page-id) st/state =))
(def viewer-data
(l/derived :viewer st/state))
@ -427,5 +431,13 @@
(some #(-> (cph/get-parent objects %) :layout))))
workspace-page-objects))
(defn get-flex-child-viewer?
[ids page-id]
(l/derived
(fn [state]
(let [objects (wsh/lookup-viewer-objects state page-id)]
(filterv #(= :flex (:layout (cph/get-parent objects %))) ids)))
st/state =))
(def colorpicker
(l/derived :colorpicker st/state))