foxhole/app/hyap.hy

#!/usr/bin/env hy
(import httpx)
(import loguru [logger])
(import app [config])
(import app.httpsig [auth])


(defn/a fetch
  [url]
  (.info logger url)
  (return (.json
    (with/a [client (.AsyncClient httpx)]
      (let [headers {"User-Agent" config.USER_AGENT
                    "Accept" config.AP_CONTENT_TYPE}]
        (await (.get client url :headers headers :timeout 15)))))))

(defn/a post
  [url payload]
  (with/a [client (.AsyncClient httpx)]
    (let [headers {"User-Agent" config.USER_AGENT
                  "Content-Type" config.AP_CONTENT_TYPE}]
      (setv resp
        (await (.post client url :headers headers :json payload :auth auth :timeout 15)))
      (.raise_for_status resp)
      (return resp))))