print mastodon statuses via mastodon-api interop

package.json

@@ -5,5 +5,7 @@
   "devDependencies": {
     "shadow-cljs": "2.8.100"
   },
-  "dependencies": {}
+  "dependencies": {
+    "mastodon-api": "^1.3.0"
+  }
 }

src/main/dda/masto_embed/app.cljs

@@ -1,7 +1,21 @@
-(ns dda.masto-embed.app)
+(ns dda.masto-embed.app
+ (:require ["mastodon-api" :as Mastodon]
+           [clojure.pprint :as pprint :refer [pprint]]
+           [cljs.core.async :refer [go]]
+           [cljs.core.async.interop :refer-macros [<p!]]))
+ 
+(defn get-content-seq [response]
+ (map 
+  #(aget % "content") 
+  (array-seq 
+   (aget response "data"))))
 
-(defn init
+(defn init []
-  ""
+  (let [config (js-obj "api_url" "https://social.meissa-gmbh.de/api/v1/" "access_token" "...")
-  []
+        masto (new Mastodon config)
-  (println "xx")
+        rest-endpoint "accounts/:id/statuses"
-  "Hello world!")
+        id-config (js-obj "id" "2")]
+    (pprint 
+     (go
+       (let [response (<p! (.get masto rest-endpoint id-config))]
+         (get-content-seq response)))))