meissa/dda-masto-embed
6
0
Fork 0
Code Issues Pull requests Projects Releases 3 Packages Wiki Activity

get input from html

Browse source
This commit is contained in:
jem 2020-04-25 14:26:33 +02:00
parent 61746c417f
commit 41a1387bdb
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
public/index.html
View file

@ -5,7 +5,8 @@
<title>masto-embed</title> <title>masto-embed</title>
</head> </head>
<body> <body>
<div id="mastodon-timeline"> <div id="masto-embed" account_id="2"
host_url="https://social.meissa-gmbh.de">
Here the timeline will appear. Here the timeline will appear.
</div> </div>
<script src="js/main.js"></script> <script src="js/main.js"></script>

15
src/main/dda/masto_embed/app.cljs
View file

@ -18,15 +18,22 @@
[dda.masto-embed.api :as api] [dda.masto-embed.api :as api]
[clojure.pprint :as pprint :refer [pprint]])) [clojure.pprint :as pprint :refer [pprint]]))
(def mastodon-config (def masto-embed "masto-embed")
(api/create-config "2" "https://social.meissa-gmbh.de"))
(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 (defn render-to-document
[input] [input]
(-> js/document (-> js/document
(.getElementById "mastodon-timeline") (.getElementById masto-embed)
(.-innerHTML) (.-innerHTML)
(set! input))) (set! input)))
(defn init [] (defn init []
(api/get-mastodon-timeline mastodon-config render-to-document)) (api/get-mastodon-timeline
(mastodon-config-from-document)
render-to-document))