From 2f54b0fdddbc224897e61c81a25a47d2d189fb58 Mon Sep 17 00:00:00 2001
From: jem <michael.jerger@meissa-gmbh.de>
Date: Fri, 19 Jun 2020 14:58:59 +0200
Subject: [PATCH] wip

---
 shadow-cljs.edn                   | 14 +++++++-------
 src/main/dda/masto_embed/api.cljs |  4 ++--
 src/main/dda/masto_embed/app.cljs |  9 +++++----
 3 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/shadow-cljs.edn b/shadow-cljs.edn
index a581fd1..61b9930 100644
--- a/shadow-cljs.edn
+++ b/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}}}}}
+
+
diff --git a/src/main/dda/masto_embed/api.cljs b/src/main/dda/masto_embed/api.cljs
index d98f8e8..d1548bd 100644
--- a/src/main/dda/masto_embed/api.cljs
+++ b/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")
diff --git a/src/main/dda/masto_embed/app.cljs b/src/main/dda/masto_embed/app.cljs
index 7c1a531..b2fa001 100644
--- a/src/main/dda/masto_embed/app.cljs
+++ b/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))
\ No newline at end of file
+(defn main []
+  (go
+    (let [account-id (<! (find-account-id "https://social.meissa-gmbh.de" "team"))]
+      (print account-id)
+      )))