wip

shadow-cljs.edn

@@ -8,10 +8,10 @@
  [[orchestra "2019.02.06-1"]]
  :dev-http {8080 "public"}
  :builds
- {:test
-  {:target    :node-test
-   :output-to "out/node-tests.js"
-   :autorun   true}
-  :frontend
-  {:target :browser
-   :modules {:main {:init-fn dda.masto-embed.app/init}}}}}
+ {:test {:target    :node-test
+         :output-to "out/node-tests.js"
+         :autorun   true}
+  :frontend {:target :browser
+             :modules {:main {:init-fn dda.masto-embed.app/init}}}}}
+
+

src/main/dda/masto_embed/api.cljs

@@ -51,7 +51,7 @@
               (exit-with-error error)
               (callback response)))))
 
-(defn-spec get-directory any? 
+(defn-spec get-directory-old any? 
   [host-url ::host-url
    callback fn?]
   (.then (.get (mastodon-client host-url)
@@ -60,7 +60,7 @@
          #(let [response (-> % .-data js->edn)]
             (callback response))))
 
-(defn-spec get-directory2 any?
+(defn-spec get-directory any?
   [host-url ::host-url]
   (go (let [result (<p! (.get (mastodon-client host-url)
                               (str "directory?local=true")

src/main/dda/masto_embed/app.cljs

@@ -77,7 +77,8 @@
        account-id
        render-to-document))))
 
-(go
-  (let
-   [result (<p! (api/get-directory "https://social.meissa-gmbh.de"))]
-    result))
+(defn main []
+  (go
+    (let [account-id (<! (find-account-id "https://social.meissa-gmbh.de" "team"))]
+      (print account-id)
+      )))