From 74e635b389d0797c37eb9db6b78025499607e99c Mon Sep 17 00:00:00 2001 From: Michael Jerger Date: Mon, 19 Jun 2023 09:35:17 +0200 Subject: [PATCH] some experiments --- .../activity_pub_poc/core.clj | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj index 43c7f90..05099e7 100644 --- a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj +++ b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj @@ -1,14 +1,23 @@ (ns org.domaindrivenarchitecture.activity-pub-poc.core (:require [lambdaisland.souk.activitypub :as ap] [lambdaisland.souk.json-ld :as ld] - [clojure.inspector :as ins]) ) + [clojure.inspector :as ins] + [hato.client :as hato] + [clojure.string :as str] + [clojure.walk :as walk]) ) (def team-url "https://social.meissa-gmbh.de/users/team") +(def like-url "https://www.w3.org/ns/activitystreams#Like") +(def name-url "https://www.w3.org/ns/activitystreams#name") -(def context (ld/expand-context (get (ld/json-get team-url) "@context"))) +(def context-team (ins/inspect-tree (ld/expand (:body (ld/json-get team-url))))) +(def context-like (ins/inspect-tree (ld/expand (:body (ld/json-get like-url))))) -(def expanded-ld (ins/inspect-tree (ld/expand (ld/json-get team-url)))) +(def team (ap/GET team-url)) -(def ap-resource (ap/GET team-url)) +;;(ins/inspect-tree team) -(ins/inspect-tree ap-resource) +(defn rdf-get [url] + (hato/get url)) + +(rdf-get "http://www.w3.org/2000/01/rdf-schema")