3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-06 04:11:44 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Rewrite all the async jobs subsystem and async email sending.

Browse source
This commit is contained in:
Andrey Antukh 2019-11-22 18:08:27 +01:00
parent 3d4808e024
commit 8809c5238f
9 changed files with 232 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

10
frontend/src/uxbox/main/data/projects.cljs
View file

@ -10,7 +10,7 @@
[cuerdas.core :as str]
[beicon.core :as rx]
[potok.core :as ptk]
[uxbox.main.repo :as rp]
[uxbox.main.repo.core :as rp]
[uxbox.main.data.pages :as udp]
[uxbox.util.uuid :as uuid]
[uxbox.util.spec :as us]
@ -91,8 +91,7 @@
(defrecord FetchProjects []
ptk/WatchEvent
(watch [_ state stream]
(->> (rp/req :fetch/projects)
(rx/map :payload)
(->> (rp/query :projects)
(rx/map projects-fetched))))
(defn fetch-projects
@ -117,8 +116,7 @@
ptk/WatchEvent
(watch [_ state stream]
(let [project (get-in state [:projects id])]
(->> (rp/req :update/project project)
(rx/map :payload)
(->> (rp/mutation :update-project project)
(rx/map project-persisted)))))
(defn persist-project
@ -149,7 +147,7 @@
(watch [_ state s]
(letfn [(on-success [_]
#(dissoc-project % id))]
(->> (rp/req :delete/project id)
(->> (rp/mutation :delete-project {:id id})
(rx/map on-success)))))
(defn delete-project