mirror of
https://github.com/penpot/penpot.git
synced 2026-05-27 19:03:39 +00:00
3e090b126e
Mainly removes an inconsistent use of path params and normalize all routes to use query params for make it extensible without breaking urls.
79 lines
2.6 KiB
Clojure
79 lines
2.6 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.main.ui.workspace.presence
|
|
(:require-macros [app.main.style :as stl])
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.data.macros :as dm]
|
|
[app.config :as cfg]
|
|
[app.main.refs :as refs]
|
|
[app.util.dom :as dom]
|
|
[app.util.timers :as tm]
|
|
[rumext.v2 :as mf]))
|
|
|
|
(mf/defc session-widget
|
|
{::mf/props :obj
|
|
::mf/memo true}
|
|
[{:keys [color profile index]}]
|
|
(let [profile (assoc profile :color color)
|
|
full-name (:fullname profile)]
|
|
[:li {:class (stl/css :session-icon)
|
|
:style {:z-index (dm/str (+ 1 (* -1 index)))
|
|
:background-color color}
|
|
:title full-name}
|
|
[:img {:alt full-name
|
|
:style {:background-color color}
|
|
:src (cfg/resolve-profile-photo-url profile)}]]))
|
|
|
|
(mf/defc active-sessions
|
|
{::mf/memo true}
|
|
[]
|
|
(let [profiles (mf/deref refs/profiles)
|
|
presence (mf/deref refs/workspace-presence)
|
|
|
|
sessions (vals presence)
|
|
num-sessions (count sessions)
|
|
|
|
open* (mf/use-state false)
|
|
open? (and ^boolean (deref open*) (> num-sessions 2))
|
|
on-open
|
|
(mf/use-fn
|
|
(fn []
|
|
(reset! open* true)
|
|
(tm/schedule-on-idle
|
|
#(dom/focus! (dom/get-element "users-close")))))
|
|
|
|
on-close
|
|
(mf/use-fn #(reset! open* false))]
|
|
|
|
[:*
|
|
(when ^boolean open?
|
|
[:button {:id "users-close"
|
|
:class (stl/css :active-users-opened)
|
|
:on-click on-close
|
|
:on-blur on-close}
|
|
[:ul {:class (stl/css :active-users-list) :data-testid "active-users-list"}
|
|
(for [session sessions]
|
|
[:& session-widget
|
|
{:color (:color session)
|
|
:index 0
|
|
:profile (get profiles (:profile-id session))
|
|
:key (dm/str (:id session))}])]])
|
|
|
|
[:button {:class (stl/css-case :active-users true)
|
|
:on-click on-open}
|
|
[:ul {:class (stl/css :active-users-list) :data-testid "active-users-list"}
|
|
(when (> num-sessions 2)
|
|
[:span {:class (stl/css :users-num)} (dm/str "+" (- num-sessions 2))])
|
|
|
|
(for [[index session] (d/enumerate (take 2 sessions))]
|
|
[:& session-widget
|
|
{:color (:color session)
|
|
:index index
|
|
:profile (get profiles (:profile-id session))
|
|
:key (dm/str (:id session))}])]]]))
|