mirror of
https://github.com/penpot/penpot.git
synced 2026-02-05 12:12:07 -05:00
363b4e3778
* 📎 Disable by default social auth on devenv * 🎉 Add the ability to import profile picture from SSO provider * 📎 Add srepl helper for insert custom sso config * 🎉 Add custom SSO auth flow
58 lines
1.5 KiB
Clojure
58 lines
1.5 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.http.client
|
|
"Http client abstraction layer."
|
|
(:require
|
|
[app.common.schema :as sm]
|
|
[integrant.core :as ig]
|
|
[java-http-clj.core :as http])
|
|
(:import
|
|
java.net.http.HttpClient))
|
|
|
|
(defn client?
|
|
[o]
|
|
(instance? HttpClient o))
|
|
|
|
(sm/register!
|
|
{:type ::client
|
|
:pred client?})
|
|
|
|
(defmethod ig/init-key ::client
|
|
[_ _]
|
|
(http/build-client {:connect-timeout 30000 ;; 10s
|
|
:follow-redirects :always}))
|
|
|
|
(defn send!
|
|
([client req] (send! client req {}))
|
|
([client req {:keys [response-type] :or {response-type :string}}]
|
|
(assert (client? client) "expected valid http client")
|
|
(http/send req {:client client :as response-type})))
|
|
|
|
(defn- resolve-client
|
|
[params]
|
|
(cond
|
|
(instance? HttpClient params)
|
|
params
|
|
|
|
(map? params)
|
|
(resolve-client (::client params))
|
|
|
|
:else
|
|
(throw (UnsupportedOperationException. "invalid arguments"))))
|
|
|
|
(defn req!
|
|
"A convencience toplevel function for gradual migration to a new API
|
|
convention."
|
|
([cfg-or-client request]
|
|
(let [client (resolve-client cfg-or-client)
|
|
request (update request :uri str)]
|
|
(send! client request {})))
|
|
([cfg-or-client request options]
|
|
(let [client (resolve-client cfg-or-client)
|
|
request (update request :uri str)]
|
|
(send! client request options))))
|