25 lines
719 B
Hy
25 lines
719 B
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
|
|
"Accept" config.AP_CONTENT_TYPE}]
|
|
(setv resp
|
|
(await (.post client url :headers headers :json payload :auth auth :timeout 15)))
|
|
(.raise_for_status resp)
|
|
(return resp))))
|