status-react/src/status_im/utils/utils.cljs

(ns status-im.utils.utils
  (:require-macros
   [natal-shell.async-storage :refer [get-item set-item]]
   [natal-shell.alert :refer [alert]]
   [natal-shell.toast-android :as toast])
  (:require [status-im.constants :as const]))

(defn log [obj]
  (.log js/console obj))

(defn toast [s]
  (toast/show s (toast/long)))

(defn on-error [error]
  (toast (str "error: " error)))

(defn http-post
  ([action data on-success]
   (http-post action data on-success nil))
  ([action data on-success on-error]
   (-> (.fetch js/window
               (str const/server-address action)
               (clj->js {:method "POST"
                         :headers {:accept "application/json"
                                   :content-type "application/json"}
                         :body (.stringify js/JSON (clj->js data))}))
       (.then (fn [response]
                (log response)
                (.text response)))
       (.then (fn [text]
                (let [json (.parse js/JSON text)
                      obj (js->clj json :keywordize-keys true)]
                  (on-success obj))))
       (.catch (or on-error
                   (fn [error]
                     (toast (str error))))))))

(defn http-get
  ([action on-success on-error]
   (-> (.fetch js/window
               (str const/server-address action)
               (clj->js {:method "GET"}))
       (.then (fn [response]
                (log response)
                (.text response)))
       (.then on-success)
       (.catch (or on-error
                   (fn [error]
                     (toast (str error))))))))