Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-12 07:41:43 -05:00
Code Issues Activity

Improve code style and impl of auth and project repo ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-19 12:51:01 +02:00
parent ca4afe920c
commit 6492faefd4
2 changed files with 48 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/uxbox/repo/auth.cljs
View file

@ -7,11 +7,8 @@
(ns uxbox.repo.auth
"A main interface for access to remote resources."
(:refer-clojure :exclude [do])
(:require [httpurr.client.xhr :as http]
[httpurr.status :as http.status]
[promesa.core :as p :include-macros true]
[beicon.core :as rx]
[uxbox.repo.core :as urc]
(:require [beicon.core :as rx]
[uxbox.repo.core :refer (-do url send!)]
[uxbox.state :as ust]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -20,20 +17,24 @@
(defn- request-token
[params]
(urc/req! {:url (str urc/url "/auth/token")
(let [url (str url "/auth/token")]
(send! {:url url
:method :post
:auth false
:body params}))
:body params})))
(defn- request-profile
[]
(p/resolved {:fullname "Cirilla Fiona"
(rx/of {:fullname "Cirilla Fiona"
:photo "/images/favicon.png"
:username "cirilla"
:email "cirilla@uxbox.io"}))
(defmethod urc/-do :login
(defmethod -do :login
[type data]
(p/alet [authdata (p/await (request-token data))
profile (p/await (request-profile))]
(merge profile authdata)))
(->> (rx/zip (request-token data)
(request-profile))
(rx/map (fn [[authdata profile]]
(println authdata profile)
(println authdata profile)
(merge authdata profile)))))

54
src/uxbox/repo/projects.cljs
View file

@ -6,49 +6,55 @@
(ns uxbox.repo.projects
"A main interface for access to remote resources."
(:refer-clojure :exclude [do])
(:require [httpurr.client.xhr :as http]
[httpurr.status :as http.status]
[promesa.core :as p :include-macros true]
[beicon.core :as rx]
[uxbox.repo.core :as urc]
(:require [beicon.core :as rx]
[uxbox.repo.core :refer (-do url send!)]
[uxbox.state :as ust]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Login
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmethod urc/-do :fetch/projects
(defmethod -do :fetch/projects
[type data]
(urc/req! {:url (str urc/url "/projects") :method :get}))
(let [url (str url "/projects")]
(send! {:url url :method :get})))
(defmethod urc/-do :fetch/pages
(defmethod -do :fetch/pages
[type data]
(urc/req! {:url (str urc/url "/pages") :method :get}))
(send! {:url (str url "/pages") :method :get}))
(defmethod urc/-do :create/project
(defmethod -do :fetch/pages-by-project
[type {:keys [project] :as params}]
(let [url (str url "/projects/" project "/pages")]
(send! {:method :get :url url})))
(defmethod -do :create/project
[_ data]
(let [params {:url (str urc/url "/projects")
(let [params {:url (str url "/projects")
:method :post
:body data}]
(urc/req! params)))
(send! params)))
(defmethod urc/-do :delete/project
[_ {:keys [id]}]
(let [params {:url (str urc/url "/projects/" id)
:method :delete}]
(urc/req! params)))
(defmethod -do :delete/project
[_ id]
(let [url (str url "/projects/" id)]
(send! {:url url :method :delete})))
(defmethod urc/-do :create/page
(defmethod -do :delete/page
[_ id]
(let [url (str url "/pages/" id)]
(send! {:url url :method :delete})))
(defmethod -do :create/page
[type {:keys [id] :as data}]
(let [params {:url (str urc/url "/pages")
(let [params {:url (str url "/pages")
:method :post
:body data}]
(urc/req! params)))
(send! params)))
(defmethod urc/-do :update/page
(defmethod -do :update/page
[type {:keys [id] :as data}]
(let [params {:url (str urc/url "/pages/" id)
(let [params {:url (str url "/pages/" id)
:method :put
:body data}]
(urc/req! params)))
(send! params)))