transit-ajax.cljs

(ns filemporium.client.api.common)
 (:require-macros [cljs.core.match.macros :refer [match]])
 (:require [ajax.core :as ajax]
           [cljs.core.match]

           [thattransit.handler.namespace :as transit-utils]))

(def my-default-formats
 [#(ajax/transit-response-format {:handlers transit-utils/transit-read-handlers})])

(defn api-call [method uri opts]
 (let [format                {:format (ajax/transit-request-format {:handlers transit-utils/transit-write-handlers})
                              :response-format (ajax/detect-response-format {:response-format my-default-formats})}
       api-opts              (merge opts format)]
   (match method
          :get  (ajax/GET  uri api-opts)
          :post (ajax/POST uri api-opts))))