3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-19 00:26:10 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add default headers to frontend http client.

Browse source
This commit is contained in:
Andrey Antukh 2021-02-03 17:11:34 +01:00 • committed by Hirunatan
parent 80309cbff3
commit e182cc4028
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
frontend/src/app/util/http.cljs
View file

@ -11,6 +11,7 @@
"A http client with rx streams interface." "A http client with rx streams interface."
(:refer-clojure :exclude [get]) (:refer-clojure :exclude [get])
(:require (:require
[app.config :as cfg]
[app.util.object :as obj] [app.util.object :as obj]
[app.util.transit :as t] [app.util.transit :as t]
[beicon.core :as rx] [beicon.core :as rx]
@ -68,11 +69,15 @@
(.setQueryData uri dt))) (.setQueryData uri dt)))
(.toString uri))) (.toString uri)))
(def default-headers
{"x-frontend-version" (:full @cfg/version)})
(defn- fetch (defn- fetch
[{:keys [method uri query-string query headers body] :as request} [{:keys [method uri query-string query headers body] :as request}
{:keys [timeout credentials? response-type] {:keys [timeout credentials? response-type]
:or {timeout 0 credentials? false response-type :text}}] :or {timeout 0 credentials? false response-type :text}}]
(let [uri (create-uri uri query-string query) (let [uri (create-uri uri query-string query)
headers (merge default-headers headers)
headers (if headers (clj->js headers) #js {}) headers (if headers (clj->js headers) #js {})
method (translate-method method) method (translate-method method)
xhr (doto (XhrIo.) xhr (doto (XhrIo.)