Improve interactions and after-review fixes

This commit is contained in:
alonso.torres 2021-12-28 11:12:33 +01:00
parent c28a2acfc7
commit 493a7680e0
5 changed files with 51 additions and 25 deletions

View file

@ -116,6 +116,14 @@
:show-distances?])
workspace-local =))
(def interactions-data
(l/derived #(select-keys % [:editing-interaction-index
:draw-interaction-to
:draw-interaction-to-frame
:move-overlay-to
:move-overlay-index])
workspace-local =))
(def local-displacement
(l/derived #(select-keys % [:modifiers :selected])
workspace-local =))
@ -235,9 +243,8 @@
[ids]
(let [selector
(fn [state]
(let [objects (wsh/lookup-page-objects state)
xform (comp (map (d/getf objects)) (remove nil?))]
(into [] xform ids)))]
(let [objects (wsh/lookup-page-objects state)]
(into [] (keep (d/getf objects)) ids)))]
(l/derived selector st/state =)))
(defn- set-content-modifiers [state]