inspect the team

This commit is contained in:
Michael Jerger 2023-06-16 16:06:28 +02:00
parent 7d7a6ead9b
commit 0f940aaaef

View file

@ -1,11 +1,16 @@
(ns activity-pub-poc.json-ld (ns activity-pub-poc.json-ld
(:require (:require
[hato.client :as http] [hato.client :as http]
[clojure.inspector :as inspector] [clojure.inspector :as ins]
)) ))
(def team-url "https://social.meissa-gmbh.de/users/team")
(defn json-get [url] (defn json-get [url]
(http/get url (:body
{:headers {"Accept" "application/json"} (http/get url
:http-client {:redirect-policy :normal} {:headers {"Accept" "application/json"}
:as :json-string-keys})) :http-client {:redirect-policy :normal}
:as :json-string-keys})))
(ins/inspect-tree (json-get team-url))