add dir-api

src/main/dda/masto_embed/api.cljs

@@ -44,11 +44,22 @@
   (or (some-> mastodon-config clj->js Mastodon.)
       (exit-with-error "missing Mastodon client configuration!")))
 
-(defn get-mastodon-timeline [mastodon-config callback]
+(defn get-account-statuses [mastodon-config callback]
   (.then (.get (mastodon-client mastodon-config) 
                (str "accounts/" (:account-id mastodon-config) "/statuses") 
                #js {})
          #(let [response (-> % .-data js->edn)]
             (if-let [error (:error response)]
               (exit-with-error error)
-              (callback response)))))
+              (callback response)))))
+
+(defn get-directory [mastodon-config callback]
+  (.then (.get (mastodon-client mastodon-config)
+               (str "directory?local=true")
+               #js {})
+         #(let [response (-> % .-data js->edn)]
+            (if-let [error (:error response)]
+              (exit-with-error error)
+              (callback response)))))
+
+(def my-config (create-config "2" "https://social.meissa-gmbh.de"))

src/main/dda/masto_embed/app.cljs

@@ -34,6 +34,6 @@
       (set! input)))
 
 (defn init []
-  (api/get-mastodon-timeline 
+  (api/get-account-statuses
    (mastodon-config-from-document) 
    render-to-document))