From 0f940aaaefb1c8f98a115dffe475525e1bdaab75 Mon Sep 17 00:00:00 2001 From: Michael Jerger Date: Fri, 16 Jun 2023 16:06:28 +0200 Subject: [PATCH] inspect the team --- src/main/clj/dda/activity_pub_poc/json_ld.clj | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) 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 4460c5d..09b7387 100644 --- a/src/main/clj/dda/activity_pub_poc/json_ld.clj +++ b/src/main/clj/dda/activity_pub_poc/json_ld.clj @@ -1,11 +1,16 @@ (ns activity-pub-poc.json-ld (:require [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] - (http/get url - {:headers {"Accept" "application/json"} - :http-client {:redirect-policy :normal} - :as :json-string-keys})) + (:body + (http/get url + {:headers {"Accept" "application/json"} + :http-client {:redirect-policy :normal} + :as :json-string-keys}))) + +(ins/inspect-tree (json-get team-url)) \ No newline at end of file