0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 08:50:57 -05:00

Add missing projects repository impl.

This commit is contained in:
Andrey Antukh 2016-03-15 21:01:45 +02:00
parent dac425b414
commit 944ebaa8f7

View file

@ -0,0 +1,27 @@
;; 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) 2016 Andrey Antukh <niwi@niwi.nz>
(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]
[uxbox.state :as ust]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Login
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmethod urc/-do :fetch/projects
[type data]
(urc/req! {:url (str urc/+uri+ "/projects") :method :get}))
(defmethod urc/-do :fetch/pages
[type data]
(urc/req! {:url (str urc/+uri+ "/pages") :method :get}))