Add infor for users

This commit is contained in:
alonso.torres 2024-06-04 16:18:55 +02:00 committed by Andrey Antukh
parent 98c550b20e
commit 3e2ccbc85f
5 changed files with 105 additions and 14 deletions

View file

@ -53,6 +53,15 @@
(assert (uuid? id) "Component not valid uuid")
(dm/get-in (locate-file file-id) [:data :components id]))
(defn locate-presence
[session-id]
(dm/get-in @st/state [:workspace-presence session-id]))
(defn locate-profile
[session-id]
(let [{:keys [profile-id]} (locate-presence session-id)]
(dm/get-in @st/state [:users profile-id])))
(defn proxy->file
[proxy]
(let [id (obj/get proxy "$id")]