mirror of
https://github.com/penpot/penpot.git
synced 2026-05-10 18:48:23 +00:00
cad7d75590
* ✨ Add integration test for Bug #10421 * 🐛 Fix dashboard library item menu * ✨ Fixup integration test
80 lines
2.2 KiB
Clojure
80 lines
2.2 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.data.project
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.logging :as log]
|
|
[app.main.repo :as rp]
|
|
[beicon.v2.core :as rx]
|
|
[potok.v2.core :as ptk]))
|
|
|
|
(log/set-level! :warn)
|
|
|
|
(defn- project-fetched
|
|
[{:keys [id] :as project}]
|
|
(ptk/reify ::project-fetched
|
|
ptk/UpdateEvent
|
|
(update [_ state]
|
|
(update-in state [:projects id] merge project))))
|
|
|
|
(defn fetch-project
|
|
"Fetch or refresh a single project"
|
|
([] (fetch-project))
|
|
([project-id]
|
|
(assert (uuid? project-id) "expected a valid uuid for `project-id`")
|
|
|
|
(ptk/reify ::fetch-project
|
|
ptk/WatchEvent
|
|
(watch [_ state _]
|
|
(let [project-id (or project-id (:current-project-id state))]
|
|
(->> (rp/cmd! :get-project {:id project-id})
|
|
(rx/map project-fetched)))))))
|
|
|
|
(defn initialize-project
|
|
[project-id]
|
|
(ptk/reify ::initialize-project
|
|
ptk/UpdateEvent
|
|
(update [_ state]
|
|
(assoc state :current-project-id project-id))
|
|
|
|
ptk/WatchEvent
|
|
(watch [_ _ _]
|
|
(rx/of (fetch-project project-id)))))
|
|
|
|
(defn finalize-project
|
|
[project-id]
|
|
(ptk/reify ::finalize-project
|
|
ptk/UpdateEvent
|
|
(update [_ state]
|
|
(let [project-id' (get state :current-project-id)]
|
|
(if (= project-id' project-id)
|
|
(dissoc state :current-project-id)
|
|
state)))))
|
|
|
|
(defn- files-fetched
|
|
[project-id files]
|
|
(ptk/reify ::files-fetched
|
|
ptk/UpdateEvent
|
|
(update [_ state]
|
|
(-> state
|
|
(update :files merge (d/index-by :id files))
|
|
(d/update-in-when [:projects project-id] (fn [project]
|
|
(assoc project :count (count files))))))))
|
|
|
|
(defn fetch-files
|
|
([] (fetch-files nil))
|
|
([project-id]
|
|
(ptk/reify ::fetch-files
|
|
ptk/WatchEvent
|
|
(watch [_ state _]
|
|
(when-let [project-id (or project-id (:current-project-id state))]
|
|
(->> (rp/cmd! :get-project-files {:project-id project-id})
|
|
(rx/map (partial files-fetched project-id))))))))
|
|
|
|
|
|
|