Add json-get from souk

2023-06-15 15:00:46 +02:00 · 2023-06-15 15:00:46 +02:00 · 0055b159b1
commit 0055b159b1
parent bbde1d7f83
1 changed files with 10 additions and 1 deletions
--- 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)
+(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}))