Refactor function names
This commit is contained in:
parent
a2265d6b42
commit
2d0dcf60a3
2 changed files with 4 additions and 4 deletions
|
@ -87,7 +87,7 @@
|
|||
(cm/replace-all-matching-values-by-new-value "FAVOURITES_COUNT" favourites_count)))
|
||||
|
||||
(defn masto->html2 [statuses]
|
||||
(let [html (b/index-html-hiccup)]
|
||||
(let [html (b/post-html-hiccup)]
|
||||
(map (fn [status]
|
||||
(let [{:keys [account created_at content media_attachments replies_count reblogs_count favourites_count card url]} status]
|
||||
(-> html
|
||||
|
|
|
@ -20,10 +20,10 @@
|
|||
|
||||
(def masto-embed "masto-embed")
|
||||
|
||||
(def index-html (rc/inline "dda/masto_embed/resources/post.html"))
|
||||
(def post-html (rc/inline "dda/masto_embed/resources/post.html"))
|
||||
|
||||
(defn index-html-hiccup []
|
||||
(h/as-hiccup (h/parse index-html)))
|
||||
(defn post-html-hiccup []
|
||||
(h/as-hiccup (h/parse post-html)))
|
||||
|
||||
(defn element-from-document-by-name [name]
|
||||
(-> js/document
|
||||
|
|
Loading…
Reference in a new issue