inspect the team
This commit is contained in:
parent
7d7a6ead9b
commit
0f940aaaef
1 changed files with 10 additions and 5 deletions
|
@ -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]
|
||||||
|
(:body
|
||||||
(http/get url
|
(http/get url
|
||||||
{:headers {"Accept" "application/json"}
|
{:headers {"Accept" "application/json"}
|
||||||
:http-client {:redirect-policy :normal}
|
:http-client {:redirect-policy :normal}
|
||||||
:as :json-string-keys}))
|
:as :json-string-keys})))
|
||||||
|
|
||||||
|
(ins/inspect-tree (json-get team-url))
|
Loading…
Reference in a new issue