3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-01 08:48:28 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Restructure the services directory.

Browse source
This commit is contained in:
Andrey Antukh 2019-12-01 16:48:41 +01:00
parent eeb5482d36
commit b66bc02098
45 changed files with 951 additions and 960 deletions
Download patch file Download diff file Expand all files Collapse all files

1
backend/src/uxbox/http/debug.clj
View file

@ -11,7 +11,6 @@
[promesa.core :as p]
[uxbox.http.errors :as errors]
[uxbox.http.session :as session]
[uxbox.services.core :as sv]
[uxbox.util.uuid :as uuid]))
(defn emails-list

18
backend/src/uxbox/http/handlers.clj
View file

@ -9,16 +9,18 @@
[promesa.core :as p]
[uxbox.emails :as emails]
[uxbox.http.session :as session]
[uxbox.services.core :as sv]
[uxbox.services.init]
[uxbox.services.mutations :as sm]
[uxbox.services.queries :as sq]
[uxbox.util.uuid :as uuid]))
(defn query-handler
[req]
(let [type (get-in req [:path-params :type])
data (merge (:params req)
{::sv/type (keyword type)
{::sq/type (keyword type)
:user (:user req)})]
(-> (sv/query (with-meta data {:req req}))
(-> (sq/handle (with-meta data {:req req}))
(p/then' (fn [result]
{:status 200
:body result})))))
@ -29,9 +31,9 @@
data (merge (:params req)
(:body-params req)
(:uploads req)
{::sv/type (keyword type)
{::sm/type (keyword type)
:user (:user req)})]
(-> (sv/mutation (with-meta data {:req req}))
(-> (sm/handle (with-meta data {:req req}))
(p/then' (fn [result]
{:status 200 :body result})))))
@ -39,7 +41,7 @@
[req]
(let [data (:body-params req)
user-agent (get-in req [:headers "user-agent"])]
(-> (sv/mutation (assoc data ::sv/type :login))
(-> (sm/handle (assoc data ::sm/type :login))
(p/then #(session/create % user-agent))
(p/then' (fn [token]
{:status 204
@ -59,9 +61,9 @@
(defn register-handler
[req]
(let [data (merge (:body-params req)
{::sv/type :register-profile})
{::sm/type :register-profile})
user-agent (get-in req [:headers "user-agent"])]
(-> (sv/mutation (with-meta data {:req req}))
(-> (sm/handle (with-meta data {:req req}))
(p/then (fn [{:keys [id] :as user}]
(session/create id user-agent)))
(p/then' (fn [token]