meissa/activity-pub-poc
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

some experiments

Browse source
This commit is contained in:
Michael Jerger 2023-06-19 09:35:17 +02:00
parent 811d462419
commit 74e635b389
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj
View file

@ -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")