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

✨ Load workspace thumbnails in a separated request

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

10
backend/src/app/rpc/queries/files.clj
View file

@ -36,6 +36,12 @@
(s/and ::cmd.files/get-file
(s/keys :opt-un [::components-v2])))
(defn get-file
[conn id features]
(let [file (cmd.files/get-file conn id features)
thumbs (cmd.files/get-object-thumbnails conn id)]
(assoc file :thumbnails thumbs)))
(sv/defmethod ::file
"Retrieve a file by its ID. Only authenticated users."
{::doc/added "1.0"
@ -48,7 +54,7 @@
components-v2 (conj "components/v2"))]
(cmd.files/check-read-permissions! perms)
(-> (cmd.files/get-file conn id features)
(-> (get-file conn id features)
(assoc :permissions perms)))))
;; --- QUERY: page
@ -96,7 +102,7 @@
(let [;; BACKWARD COMPATIBILTY with the components-v2 parameter
features (cond-> (or features #{})
components-v2 (conj "components/v2"))
file (cmd.files/retrieve-file conn file-id features)]
file (cmd.files/get-file conn file-id features)]
{:file-id file-id
:revn (:revn file)
:page (cmd.files/get-file-data-for-thumbnail conn file)})))