Refactor function names

master
erik 1 month ago
parent a2265d6b42
commit 2d0dcf60a3

@ -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…
Cancel
Save