CLJ-HTTP Dynamic Basic Auth

ext.clj

(ns ext
  "This module adds default parameters to requests such as the ability to dynamically set the
  user credentials. This pattern could be used to do many things such
  as append {:debug true}, useful in an interactive environment."
  (:require [clj-http.client :as http]))

(def ^:dynamic *additional-params*
  "Available at any time to set additional params to
  Automatically bound when `with-middleware` is used."
  {})

(defn wrap-additional-params
  "Additional middleware for dynamically setting anything (such as
  credentials)."
  [client]
  (fn [req]
    (client (merge req *additional-params*))))

(defmacro with-basic-auth [credentials & body]
  "Wraps the context of the request with basic auth so we can stream larger requests."
  `(binding [*additional-params* (assoc *additional-params* :basic-auth ~credentials)]
     (http/with-middleware (concat http/*current-middleware* ~[wrap-additional-params])
       ~@body)))

(comment
  ; Example of how to use this macro.
  (with-basic-auth "rymndhng:foobarbaz"
    (http/get "https://api.github.com/users/whatever"))
  
)