mirror of
https://github.com/penpot/penpot.git
synced 2025-06-27 19:27:00 +02:00
✨ Add infor for users
This commit is contained in:
parent
98c550b20e
commit
3e2ccbc85f
5 changed files with 105 additions and 14 deletions
|
@ -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")]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue