src/main/clj/dda/activity_pub_poc/activitypub.clj

@@ -1,9 +1,10 @@
-(ns lambdaisland.souk.activitypub
+(ns dda.activity-pub-poc.activitypub
   "Interact with ActivityPub instances"
   (:require
    [clojure.string :as str]
-   [lambdaisland.souk.json-ld :as ld]
+   [dda.activity-pub-poc.json-ld :as ld]
-   [lambdaisland.uri :as uri]))
+   [lambdaisland.uri :as uri]
+   [clojure.inspector :as ins]))
 
 (def common-prefixes
   {"dcterms" "http://purl.org/dc/terms/"
@@ -49,7 +50,7 @@
     "suspended"                 "toot:suspended"}])
 
 (defn GET [url]
-  (ld/internalize (ld/expand (:body (ld/json-get url))) common-prefixes))
+  (ld/internalize (ld/expand (ld/json-get url)) common-prefixes))
 
 (defn kw->iri [kw]
   (if (string? kw)
@@ -76,3 +77,5 @@
       (let [[username domain] (str/split (:path iri) #"@")]
         {:domain   domain
          :username username}))))
+
+(ins/inspect-tree (GET ld/team-url))

src/main/clj/dda/activity_pub_poc/core.clj

@@ -0,0 +1,6 @@
+(ns activity-pub-poc.core)
+
+(defn -main
+  "I don't do a whole lot ... yet."
+  [& args]
+  (println "Hello, World!"))

src/main/clj/dda/activity_pub_poc/json_ld.clj

@@ -1,17 +1,21 @@
-(ns lambdaisland.souk.json-ld
+(ns dda.activity-pub-poc.json-ld
-  "Interfacing with JSON-LD endpoints, and converting to and from idiomatic
+  (:require
-  Clojure data."
+   [hato.client :as http]
-  (:require [hato.client :as hato]
    [clojure.string :as str]
-            [clojure.walk :as walk]))
+   [clojure.walk :as walk]
+   [clojure.inspector :as ins]
+   ))
+
+(def team-url "https://social.meissa-gmbh.de/users/team")
+
+(def context-cache (atom {}))
 
 (defn json-get [url]
-  (hato/get url
+  (:body 
+   (http/get url
              {:headers {"Accept" "application/json"}
               :http-client {:redirect-policy :normal}
-             :as :json-string-keys}))
+              :as :json-string-keys})))
-
-(def context-cache (atom {})) ;; url -> context
 
 (defn fetch-context [url]
   (if-let [ctx (get @context-cache url)]
@@ -19,7 +23,7 @@
     (get
      (swap! context-cache
             (fn [cache]
-              (assoc cache url (get (:body (json-get url)) "@context"))))
+              (assoc cache url (get (json-get url) "@context"))))
      url)))
 
 (defn expand-context
@@ -165,9 +169,6 @@
                         (get iri->prop ?iri ?iri)))]
     (assoc (walk/postwalk convert-val v) "@context" context)))
 
-;; (compact
+(expand-context (get (json-get team-url) "@context"))
-;;  (expand (:body (json-get "https://toot.cat/users/plexus")))
-;;  common-prefixes)
 
-;; "name"
+(ins/inspect-tree (expand (json-get team-url)))
-;; "profileName"

src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj

@@ -1,14 +0,0 @@
-(ns org.domaindrivenarchitecture.activity-pub-poc.core
-  (:require [lambdaisland.souk.activitypub :as ap]
-            [lambdaisland.souk.json-ld :as ld]
-            [clojure.inspector :as ins]) )
-
-(def team-url "https://social.meissa-gmbh.de/users/team")
-
-(def context (ld/expand-context (get (ld/json-get team-url) "@context")))
-
-(def expanded-ld (ins/inspect-tree (ld/expand (ld/json-get team-url))))
-
-(def ap-resource (ap/GET team-url))
-
-(ins/inspect-tree ap-resource)