mirror of
https://github.com/penpot/penpot.git
synced 2026-03-23 20:01:12 +01:00
91 lines
2.3 KiB
Clojure
91 lines
2.3 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.plugins.user
|
|
(:require
|
|
[app.common.record :as crc]
|
|
[app.config :as cfg]
|
|
[app.plugins.format :as format]
|
|
[app.plugins.utils :as u]
|
|
[app.util.object :as obj]))
|
|
|
|
(deftype CurrentUserProxy [$plugin])
|
|
(deftype ActiveUserProxy [$plugin])
|
|
(deftype UserProxy [$plugin])
|
|
|
|
(defn- add-session-properties
|
|
[user-proxy session-id]
|
|
(crc/add-properties!
|
|
user-proxy
|
|
{:name "$session" :enumerable false :get (constantly session-id)}
|
|
|
|
{:name "id"
|
|
:get (fn [_] (-> (u/locate-profile session-id) :id str))}
|
|
|
|
{:name "name"
|
|
:get (fn [_] (-> (u/locate-profile session-id) :fullname))}
|
|
|
|
{:name "avatarUrl"
|
|
:get (fn [_] (cfg/resolve-profile-photo-url (u/locate-profile session-id)))}
|
|
|
|
{:name "color"
|
|
:get (fn [_] (-> (u/locate-presence session-id) :color))}
|
|
|
|
{:name "sessionId"
|
|
:get (fn [_] (str session-id))}))
|
|
|
|
|
|
(defn current-user-proxy? [p]
|
|
(obj/type-of? p "CurrentUserProxy"))
|
|
|
|
(defn current-user-proxy
|
|
[plugin-id session-id]
|
|
(-> (obj/reify {:name "CurrentUserProxy"}
|
|
:$plugin
|
|
{:enumerable false :get (fn [] plugin-id)})
|
|
(add-session-properties session-id)))
|
|
|
|
(defn active-user-proxy? [p]
|
|
(obj/type-of? p "ActiveUserProxy"))
|
|
|
|
(defn active-user-proxy
|
|
[plugin-id session-id]
|
|
(-> (obj/reify {:name "ActiveUserProxy"}
|
|
:$plugin
|
|
{:enumerable false :get (fn [] plugin-id)}
|
|
|
|
:position
|
|
{:get (fn [] (-> (u/locate-presence session-id) :point format/format-point))}
|
|
|
|
:zoom
|
|
{:get (fn [] (-> (u/locate-presence session-id) :zoom))})
|
|
(add-session-properties session-id)))
|
|
|
|
(defn- add-user-properties
|
|
[user-proxy data]
|
|
(crc/add-properties!
|
|
user-proxy
|
|
{:name "id"
|
|
:get (fn [_] (-> data :id str))}
|
|
|
|
{:name "name"
|
|
:get (fn [_] (-> data :fullname))}
|
|
|
|
{:name "avatarUrl"
|
|
:get (fn [_] (cfg/resolve-profile-photo-url data))}))
|
|
|
|
(defn user-proxy
|
|
[plugin-id data]
|
|
(-> (obj/reify {:name "UserProxy"}
|
|
:$plugin {:enumerable false :get (fn [] plugin-id)})
|
|
(add-user-properties data)))
|
|
|
|
(defn user-proxy?
|
|
[p]
|
|
(or (obj/type-of? p "UserProxy")
|
|
(current-user-proxy? p)
|
|
(active-user-proxy? p)))
|