Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-23 15:09:10 -05:00
Code Issues 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
Show stats 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."
(:refer-clojure :exclude [get])
(:require
[app.config :as cfg]
[app.util.object :as obj]
[app.util.transit :as t]
[beicon.core :as rx]
@ -68,11 +69,15 @@
(.setQueryData uri dt)))
(.toString uri)))
(def default-headers
{"x-frontend-version" (:full @cfg/version)})
(defn- fetch
[{:keys [method uri query-string query headers body] :as request}
{:keys [timeout credentials? response-type]
:or {timeout 0 credentials? false response-type :text}}]
(let [uri (create-uri uri query-string query)
headers (merge default-headers headers)
headers (if headers (clj->js headers) #js {})
method (translate-method method)
xhr (doto (XhrIo.)