get input from html

4 years ago · 41a1387bdb
parent 61746c417f
commit 41a1387bdb
2 changed files with 13 additions and 5 deletions
--- a/public/index.html
+++ b/public/index.html
@ -5,7 +5,8 @@
    <title>masto-embed</title>
  </head>
  <body>
-    <div id="mastodon-timeline">
+    <div id="masto-embed" account_id="2" 
+          host_url="https://social.meissa-gmbh.de">
      Here the timeline will appear.
    </div>
    <script src="js/main.js"></script>
--- a/src/main/dda/masto_embed/app.cljs
+++ b/src/main/dda/masto_embed/app.cljs
@ -18,15 +18,22 @@
   [dda.masto-embed.api :as api]
   [clojure.pprint :as pprint :refer [pprint]]))

-(def mastodon-config 
-  (api/create-config "2" "https://social.meissa-gmbh.de"))
+(def masto-embed "masto-embed")
+
+(defn mastodon-config-from-document []
+  (let [masto-embed (.getElementById js/document masto-embed)
+        host-url (.getAttribute masto-embed "host_url")
+        account-id (.getAttribute masto-embed "account_id")]
+    (api/create-config account-id host-url)))

 (defn render-to-document
  [input]
  (-> js/document
-      (.getElementById "mastodon-timeline")
+      (.getElementById masto-embed)
      (.-innerHTML)
      (set! input)))

 (defn init []
-  (api/get-mastodon-timeline mastodon-config render-to-document))
+  (api/get-mastodon-timeline 
+   (mastodon-config-from-document) 
+   render-to-document))