This commit is contained in:
jem 2020-06-19 14:58:59 +02:00
parent 85ef9b8667
commit 2f54b0fddd
3 changed files with 14 additions and 13 deletions

View file

@ -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}}}}}

View file

@ -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")

View file

@ -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)
)))