penpot/frontend/src/uxbox/main/ui/dashboard/recent_files.cljs
2020-03-12 14:09:48 +01:00

78 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/.
;;
;; This Source Code Form is "Incompatible With Secondary Licenses", as
;; defined by the Mozilla Public License, v. 2.0.
;;
;; Copyright (c) 2015-2020 Andrey Antukh <niwi@niwi.nz>
;; Copyright (c) 2015-2020 Juan de la Cruz <delacruzgarciajuan@gmail.com>
(ns uxbox.main.ui.dashboard.recent-files
(:require
[lentes.core :as l]
[rumext.alpha :as mf]
[uxbox.builtins.icons :as i]
[uxbox.common.exceptions :as ex]
[uxbox.main.constants :as c]
[uxbox.main.data.projects :as udp]
[uxbox.main.data.dashboard :as dsh]
[uxbox.main.store :as st]
[uxbox.main.exports :as exports]
[uxbox.main.refs :as refs]
[uxbox.main.ui.modal :as modal]
[uxbox.main.ui.keyboard :as kbd]
[uxbox.main.ui.confirm :refer [confirm-dialog]]
[uxbox.util.dom :as dom]
[uxbox.util.i18n :as i18n :refer [t tr]]
[uxbox.util.router :as rt]
[uxbox.util.time :as dt]
[uxbox.main.ui.dashboard.grid :refer [grid]])
)
;; --- Component: Content
(def projects-ref
(-> (l/key :projects)
(l/derive st/state)))
(def recent-files-ref
(-> (l/key :recent-files)
(l/derive st/state)))
;; --- Component: Drafts Page
(mf/defc recent-files-page
[{:keys [section team-id] :as props}]
(mf/use-effect
{:fn #(st/emit! (dsh/initialize-team team-id))
:deps (mf/deps team-id)})
(let [projects (mf/deref projects-ref)
recent-files (mf/deref recent-files-ref)
locale (i18n/use-locale)]
(if projects
[:section.recent-files-page
(for [project (vals projects)]
[:div.recent-files-row
{:key (:id project)
:class-name (when (= project (first (vals projects))) "first")}
[:div.recent-files-row-title
[:h2.recent-files-row-title-name (:name project)]
[:span.recent-files-row-title-info (str (:file-count project) " files")]
(when (and recent-files (recent-files (:id project)))
(let [time (-> (project :id)
(recent-files)
(first)
:modified-at
(dt/timeago {:locale locale}))]
[:span.recent-files-row-title-info (str ", " time)]))]
[:& grid {:id (:id project)
:files (or
(and recent-files (recent-files (:id project)))
[])
:hide-new? true}]])]
[:section
[:p "empty"]])
))