mirror of
https://github.com/penpot/penpot.git
synced 2025-05-31 04:26:11 +02:00
102 lines
3.4 KiB
Clojure
102 lines
3.4 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.dashboard.comments
|
|
(:require
|
|
[app.main.data.comments :as dcm]
|
|
[app.main.data.events :as ev]
|
|
[app.main.data.workspace.comments :as dwcm]
|
|
[app.main.refs :as refs]
|
|
[app.main.store :as st]
|
|
[app.main.ui.comments :as cmt]
|
|
[app.main.ui.components.dropdown :refer [dropdown]]
|
|
[app.main.ui.icons :as i]
|
|
[app.util.dom :as dom]
|
|
[app.util.i18n :as i18n :refer [tr]]
|
|
[app.util.keyboard :as kbd]
|
|
[potok.core :as ptk]
|
|
[rumext.v2 :as mf]))
|
|
|
|
(mf/defc comments-section
|
|
[{:keys [profile team]}]
|
|
(let [show-dropdown? (mf/use-state false)
|
|
show-dropdown (mf/use-fn #(reset! show-dropdown? true))
|
|
hide-dropdown (mf/use-fn #(reset! show-dropdown? false))
|
|
threads-map (mf/deref refs/comment-threads)
|
|
users (mf/deref refs/current-team-comments-users)
|
|
team-id (:id team)
|
|
|
|
tgroups (->> (vals threads-map)
|
|
(sort-by :modified-at)
|
|
(reverse)
|
|
(dcm/apply-filters {} profile)
|
|
(dcm/group-threads-by-file-and-page))
|
|
|
|
on-navigate
|
|
(mf/use-callback
|
|
(fn [thread]
|
|
(st/emit! (-> (dwcm/navigate thread)
|
|
(with-meta {::ev/origin "dashboard"})))))]
|
|
|
|
(mf/use-effect
|
|
(mf/deps team-id)
|
|
(fn []
|
|
(st/emit! (dcm/retrieve-unread-comment-threads team-id))))
|
|
|
|
(mf/use-effect
|
|
(mf/deps @show-dropdown?)
|
|
(fn []
|
|
(when @show-dropdown?
|
|
(st/emit! (ptk/event ::ev/event {::ev/name "open-comment-notifications"
|
|
::ev/origin "dashboard"})))))
|
|
|
|
[:div.dashboard-comments-section
|
|
[:div.button
|
|
{:tab-index "0"
|
|
:on-click show-dropdown
|
|
:on-key-down (fn [event]
|
|
(when (kbd/enter? event)
|
|
(show-dropdown event)))
|
|
:data-test "open-comments"
|
|
:class (dom/classnames :open @show-dropdown?
|
|
:unread (boolean (seq tgroups)))}
|
|
i/chat]
|
|
|
|
[:& dropdown {:show @show-dropdown? :on-close hide-dropdown}
|
|
[:div.dropdown.comments-section.comment-threads-section.
|
|
[:div.header
|
|
[:h3 (tr "labels.comments")]
|
|
[:span.close {:tab-index (if @show-dropdown?
|
|
"0"
|
|
"-1")
|
|
:on-click hide-dropdown
|
|
:on-key-down (fn [event]
|
|
(when (kbd/enter? event)
|
|
(hide-dropdown event)))} i/close]]
|
|
|
|
[:hr]
|
|
|
|
(if (seq tgroups)
|
|
[:div.thread-groups
|
|
[:& cmt/comment-thread-group
|
|
{:group (first tgroups)
|
|
:on-thread-click on-navigate
|
|
:show-file-name true
|
|
:users users}]
|
|
(for [tgroup (rest tgroups)]
|
|
[:*
|
|
[:hr]
|
|
|
|
[:& cmt/comment-thread-group
|
|
{:group tgroup
|
|
:on-thread-click on-navigate
|
|
:show-file-name true
|
|
:users users
|
|
:key (:page-id tgroup)}]])]
|
|
|
|
[:div.thread-groups-placeholder
|
|
i/chat
|
|
(tr "labels.no-comments-available")])]]]))
|