From 0055b159b1d460c6d1fbc1d4df8738b15ed4590c Mon Sep 17 00:00:00 2001 From: erik Date: Thu, 15 Jun 2023 15:00:46 +0200 Subject: [PATCH] Add json-get from souk --- src/main/clj/dda/activity_pub_poc/json_ld.clj | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/main/clj/dda/activity_pub_poc/json_ld.clj b/src/main/clj/dda/activity_pub_poc/json_ld.clj index 33c65e4..2088409 100644 --- a/src/main/clj/dda/activity_pub_poc/json_ld.clj +++ b/src/main/clj/dda/activity_pub_poc/json_ld.clj @@ -1 +1,10 @@ -(ns activity-pub-poc.json-ld) \ No newline at end of file +(ns activity-pub-poc.json-ld + (:require + [hato.client as http] + )) + +(defn json-get [url] + (hato/get url + {:headers {"Accept" "application/json"} + :http-client {:redirect-policy :normal} + :as :json-string-keys}))