2023-06-15 13:00:46 +00:00
|
|
|
(ns activity-pub-poc.json-ld
|
|
|
|
|
(:require
|
2023-06-15 13:18:50 +00:00
|
|
|
[hato.client :as http]
|
2023-06-16 14:06:28 +00:00
|
|
|
[clojure.inspector :as ins]
|
2023-06-15 13:00:46 +00:00
|
|
|
))
|
|
|
|
|
|
2023-06-16 14:06:28 +00:00
|
|
|
(def team-url "https://social.meissa-gmbh.de/users/team")
|
|
|
|
|
|
2023-06-15 13:00:46 +00:00
|
|
|
(defn json-get [url]
|
2023-06-16 14:06:28 +00:00
|
|
|
(:body
|
|
|
|
|
(http/get url
|
|
|
|
|
{:headers {"Accept" "application/json"}
|
|
|
|
|
:http-client {:redirect-policy :normal}
|
|
|
|
|
:as :json-string-keys})))
|
|
|
|
|
|
|
|
|
|
(ins/inspect-tree (json-get team-url))
|
