;; 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 Sucursal en España SL (ns app.main.ui.dashboard.deleted (:require-macros [app.main.style :as stl]) (:require [app.common.data :as d] [app.common.geom.point :as gpt] [app.main.data.common :as dcm] [app.main.data.dashboard :as dd] [app.main.data.modal :as modal] [app.main.data.nitrate :as dnt] [app.main.refs :as refs] [app.main.store :as st] [app.main.ui.components.context-menu-a11y :refer [context-menu*]] [app.main.ui.dashboard.grid :refer [grid*]] [app.main.ui.dashboard.layout-toggle :as lt :refer [layout-toggle*]] [app.main.ui.dashboard.subscription :refer [get-subscription-type]] [app.main.ui.ds.buttons.button :refer [button*]] [app.main.ui.ds.product.empty-placeholder :refer [empty-placeholder*]] [app.main.ui.hooks :as hooks] [app.main.ui.icons :as deprecated-icon] [app.util.dom :as dom] [app.util.i18n :as i18n :refer [tr]] [app.util.keyboard :as kbd] [okulary.core :as l] [rumext.v2 :as mf])) (def ^:private ref:deleted-files (l/derived :deleted-files st/state)) (def ^:private menu-icon (deprecated-icon/icon-xref :menu (stl/css :menu-icon))) (defn- on-restore-project [project] (let [on-accept #(st/emit! (dd/restore-project-immediately project))] (st/emit! (modal/show {:type :confirm :title (tr "dashboard.restore-project-confirmation.title") :message (tr "dashboard.restore-project-confirmation.description" (:name project)) :accept-style :primary :accept-label (tr "labels.continue") :on-accept on-accept})))) (defn- on-delete-project [project] (let [accept-fn #(st/emit! (dd/delete-project-immediately project))] (st/emit! (modal/show {:type :confirm :title (tr "dashboard.delete-forever-confirmation.title") :message (tr "dashboard.delete-project-forever-confirmation.description" (:name project)) :accept-label (tr "dashboard.delete-forever-confirmation.title") :on-accept accept-fn})))) (mf/defc header* {::mf/private true} [{:keys [layout on-change]}] [:header {:class (stl/css :dashboard-header) :data-testid "dashboard-header"} [:div#dashboard-deleted-title {:class (stl/css :dashboard-title)} [:h1 (tr "dashboard.projects-title")]] [:div {:class (stl/css :dashboard-header-actions)} [:> layout-toggle* {:layout layout :on-change on-change}]]]) (mf/defc project-context-menu* {::mf/private true} [{:keys [project show on-close top left]}] (let [top (d/nilv top 0) left (d/nilv left 0) on-restore-project (mf/use-fn (mf/deps project) (partial on-restore-project project)) on-delete-project (mf/use-fn (mf/deps project) (partial on-delete-project project)) options (mf/with-memo [on-restore-project on-delete-project] [{:name (tr "dashboard.restore-project-button") :id "project-restore" :handler on-restore-project} {:name (tr "dashboard.delete-project-button") :id "project-delete" :handler on-delete-project}])] [:> context-menu* {:on-close on-close :show show :fixed (or (not= top 0) (not= left 0)) :min-width true :top top :left left :options options}])) (mf/defc deleted-project-item* {::mf/private true} [{:keys [project files layout]}] (let [project-files (filterv #(= (:project-id %) (:id project)) files) empty? (empty? project-files) selected-files (mf/deref refs/selected-files) dstate (mf/deref refs/dashboard-local) edit-id (:project-for-edit dstate) local (mf/use-state #(do {:menu-open false :menu-pos nil :edition (= (:id project) edit-id)})) [rowref limit] (hooks/use-dynamic-grid-item-width) on-menu-click (mf/use-fn (fn [event] (dom/prevent-default event) (let [client-position (dom/get-client-position event) position (if (and (nil? (:y client-position)) (nil? (:x client-position))) (let [target-element (dom/get-target event) points (dom/get-bounding-rect target-element) y (:top points) x (:left points)] (gpt/point x y)) client-position)] (swap! local assoc :menu-open true :menu-pos position)))) on-menu-close (mf/use-fn #(swap! local assoc :menu-open false)) handle-menu-click (mf/use-callback (mf/deps on-menu-click) (fn [event] (when (kbd/enter? event) (dom/stop-propagation event) (on-menu-click event))))] [:article {:class (stl/css-case :dashboard-project-row true)} [:header {:class (stl/css :project)} [:div {:class (stl/css :project-name-wrapper)} [:h2 {:class (stl/css :project-name) :title (:name project)} (:name project)] (when (:deleted-at project) [:div {:class (stl/css :info-wrapper)} [:div {:class (stl/css-case :project-actions true)} [:button {:class (stl/css :options-btn) :on-click on-menu-click :title (tr "dashboard.options") :aria-label (tr "dashboard.options") :data-testid "project-options" :on-key-down handle-menu-click} menu-icon]] (when (:menu-open @local) [:> project-context-menu* {:project project :show (:menu-open @local) :left (+ 24 (:x (:menu-pos @local))) :top (:y (:menu-pos @local)) :on-close on-menu-close}])])]] [:div {:class (stl/css :grid-container) :ref rowref} (if ^boolean empty? [:> empty-placeholder* {:title (tr "dashboard.empty-placeholder-files-title") :class (stl/css :placeholder-placement) :type 1 :subtitle (tr "dashboard.empty-placeholder-files-subtitle")}] [:> grid* {:project project :files project-files :origin :deleted :can-edit false :can-restore true :limit limit :layout layout :selected-files selected-files}])]])) (mf/defc menu* {::mf/private true} [{:keys [team-id section]}] (let [on-recent-click (mf/use-fn (mf/deps team-id) (fn [] (st/emit! (dcm/go-to-dashboard-recent :team-id team-id)))) on-deleted-click (mf/use-fn (mf/deps team-id) (fn [] (st/emit! (dcm/go-to-dashboard-deleted :team-id team-id))))] [:div {:class (stl/css :nav)} [:div {:class (stl/css :nav-inside)} [:div {:class [(stl/css :nav-option) (stl/css-case :selected (= section :dashboard-recent))] :data-testid "recent-tab" :on-click on-recent-click} (tr "labels.recent")] [:div {:class [(stl/css :nav-option) (stl/css-case :selected (= section :dashboard-deleted))] :variant "ghost" :type "button" :data-testid "deleted-tab" :on-click on-deleted-click} (tr "labels.deleted")]]])) (mf/defc deleted-section* [{:keys [team projects layout on-layout-change]}] (let [deleted-map (mf/deref ref:deleted-files) projects (mf/with-memo [projects deleted-map] (->> projects (filter (fn [project] (or (:deleted-at project) (when deleted-map (some #(= (:id project) (:project-id %)) (vals deleted-map)))))) (filter (fn [project] (when deleted-map (some #(= (:id project) (:project-id %)) (vals deleted-map))))) (sort-by :modified-at) (reverse) (not-empty))) team-id (get team :id) ;; Calculate deletion days based on team subscription deletion-days (let [profile (mf/deref refs/profile) subscription-type (get-subscription-type (:subscription team)) nitrate-type (get-in profile [:subscription :type]) nitrate-active? (dnt/is-valid-license? profile)] (cond (and nitrate-active? (contains? #{"enterprise" "nitrate"} nitrate-type)) 90 (= subscription-type "unlimited") 30 (= subscription-type "enterprise") 90 :else 7)) on-delete-all (mf/use-fn (mf/deps team-id deleted-map) (fn [] (when-let [ids (not-empty (into #{} (map key) deleted-map))] (let [on-accept #(st/emit! (dd/delete-files-immediately {:team-id team-id :ids ids}))] (st/emit! (modal/show {:type :confirm :title (tr "dashboard.delete-forever-confirmation.title") :message (tr "dashboard.delete-all-forever-confirmation.description" (count ids)) :accept-label (tr "dashboard.delete-forever-confirmation.title") :on-accept on-accept})))))) on-restore-all (mf/use-fn (mf/deps team-id deleted-map) (fn [] (when-let [ids (not-empty (into #{} (map key) deleted-map))] (let [on-accept #(st/emit! (dd/restore-files-immediately {:team-id team-id :ids ids}))] (st/emit! (modal/show {:type :confirm :title (tr "dashboard.restore-all-confirmation.title") :message (tr "dashboard.restore-all-confirmation.description" (count ids)) :accept-label (tr "labels.continue") :accept-style :primary :on-accept on-accept}))))))] (mf/with-effect [team-id] (st/emit! (dd/fetch-projects team-id) (dd/fetch-deleted-files team-id) (dd/clear-selected-files))) [:* [:> header* {:team team :layout layout :on-change on-layout-change}] [:section {:class (stl/css :dashboard-container :no-bg) :data-testid "deleted-page-section"} [:* [:div {:class (stl/css :no-bg)} [:> menu* {:team-id team-id :section :dashboard-deleted}] (if (seq projects) [:* [:div {:class (stl/css :deleted-info-content)} [:p {:class (stl/css :deleted-info)} (tr "dashboard.trash-info-text-part1") [:span {:class (stl/css :info-text-highlight)} (tr "dashboard.trash-info-text-part2" deletion-days)] (tr "dashboard.trash-info-text-part3") [:br] (tr "dashboard.trash-info-text-part4")] [:div {:class (stl/css :deleted-options)} [:> button* {:variant "ghost" :type "button" :on-click on-restore-all} (tr "dashboard.restore-all-deleted-button")] [:> button* {:variant "destructive" :type "button" :icon "delete" :on-click on-delete-all} (tr "dashboard.clear-trash-button")]]] (for [{:keys [id] :as project} projects] (let [files (when deleted-map (->> (vals deleted-map) (filterv #(= id (:project-id %))) (sort-by :modified-at #(compare %2 %1))))] [:> deleted-project-item* {:project project :files files :layout layout :key id}]))] ;; when no deleted projects [:div {:class (stl/css :deleted-info-content)} [:p {:class (stl/css :deleted-info)} (tr "dashboard.deleted.empty-state-description")]])]]]]))