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

refactor app to use common function

Browse source
This commit is contained in:
bom 2022-02-24 14:08:43 +01:00
parent 94d2791c4a
commit 1cb2d824d0
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -25,20 +25,19 @@
(def masto-embed "masto-embed") (def masto-embed "masto-embed")
(defn host-url-from-document [] (defn element-from-document-by-name [name]
(-> js/document (-> js/document
(.getElementById masto-embed) (.getElementById masto-embed)
(.getAttribute "host_url"))) (.getAttribute name)))
(defn host-url-from-document []
(element-from-document-by-name "host_url"))
(defn account-name-from-document [] (defn account-name-from-document []
(-> js/document (element-from-document-by-name "account_name"))
(.getElementById masto-embed)
(.getAttribute "account_name")))
(defn account-id-from-document [] (defn account-id-from-document []
(-> js/document (element-from-document-by-name "account_id"))
(.getElementById masto-embed)
(.getAttribute "account_id")))
(defn render-to-document (defn render-to-document
[input] [input]