21 lines
513 B
Clojure
21 lines
513 B
Clojure
(ns yenu.ajax
|
|
(:require [ajax.core :as ajax]))
|
|
|
|
(defn local-uri? [{:keys [uri]}]
|
|
(not (re-find #"^\w+?://" uri)))
|
|
|
|
(defn default-headers [request]
|
|
(if (local-uri? request)
|
|
(-> request
|
|
(update :uri #(str js/context %))
|
|
(update :headers #(merge {"x-csrf-token" js/csrfToken} %)))
|
|
request))
|
|
|
|
(defn load-interceptors! []
|
|
(swap! ajax/default-interceptors
|
|
conj
|
|
(ajax/to-interceptor {:name "default headers"
|
|
:request default-headers})))
|
|
|
|
|