Remove unused functions.

This commit is contained in:
Andrey Antukh 2016-05-20 21:02:14 +03:00 committed by Jesús Espino
parent b3e9e7d1aa
commit 0c0d227788

View file

@ -11,25 +11,12 @@
[uxbox.state :as ust] [uxbox.state :as ust]
[uxbox.util.transit :as t])) [uxbox.util.transit :as t]))
(defn- decode-image-collection
[{:keys [data] :as coll}]
coll)
;; (merge coll
;; (when data {:data (t/decode data)})))
(defn- decode-payload
[{:keys [payload] :as rsp}]
rsp)
;; (if (sequential? payload)
;; (assoc rsp :payload (mapv decode-image-collection payload))
;; (assoc rsp :payload (decode-image-collection payload))))
(defmethod request :fetch/image-collections (defmethod request :fetch/image-collections
[_] [_]
(let [params {:url (str url "/library/image-collections") (let [params {:url (str url "/library/image-collections")
:method :get}] :method :get}]
(->> (send! params) (send! params)))
(rx/map decode-payload))))
(defmethod request :delete/image-collection (defmethod request :delete/image-collection
[_ id] [_ id]
@ -42,8 +29,7 @@
params {:url (str url "/library/image-collections") params {:url (str url "/library/image-collections")
:method :post :method :post
:body body}] :body body}]
(->> (send! params) (send! params)))
(rx/map decode-payload))))
(defmethod request :update/image-collection (defmethod request :update/image-collection
[_ {:keys [id data] :as body}] [_ {:keys [id data] :as body}]
@ -51,15 +37,13 @@
params {:url (str url "/library/image-collections/" id) params {:url (str url "/library/image-collections/" id)
:method :put :method :put
:body body}] :body body}]
(->> (send! params) (send! params)))
(rx/map decode-payload))))
(defmethod request :fetch/images (defmethod request :fetch/images
[_ {:keys [coll]}] [_ {:keys [coll]}]
(let [params {:url (str url "/library/images/" coll) (let [params {:url (str url "/library/images/" coll)
:method :get}] :method :get}]
(->> (send! params) (send! params)))
(rx/map decode-payload))))
(defmethod request :create/image (defmethod request :create/image
[_ {:keys [coll id files] :as body}] [_ {:keys [coll id files] :as body}]
@ -71,8 +55,7 @@
params {:url (str url "/library/images/" coll) params {:url (str url "/library/images/" coll)
:method :post :method :post
:body (build-body)}] :body (build-body)}]
(->> (send! params) (send! params)))
(rx/map decode-payload))))
(defmethod request :delete/image (defmethod request :delete/image
[_ id] [_ id]