Load workspace thumbnails in a separated request

This commit is contained in:
Andrey Antukh 2022-11-07 12:00:33 +01:00 committed by Andrés Moya
parent dfb73192b8
commit b20d2badfe
11 changed files with 83 additions and 66 deletions

View file

@ -408,7 +408,7 @@
st/state))
(def thumbnail-data
(l/derived #(dm/get-in % [:workspace-file :thumbnails] {}) st/state))
(l/derived #(get % :workspace-thumbnails {}) st/state))
(defn thumbnail-frame-data
[page-id frame-id]
@ -434,7 +434,7 @@
(defn get-flex-child-viewer?
[ids page-id]
(l/derived
(fn [state]
(fn [state]
(let [objects (wsh/lookup-viewer-objects state page-id)]
(filterv #(= :flex (:layout (cph/get-parent objects %))) ids)))
st/state =))