Refactor function names

This commit is contained in:
erik 2024-05-16 15:11:12 +02:00
parent a2265d6b42
commit 2d0dcf60a3
2 changed files with 4 additions and 4 deletions

View file

@ -87,7 +87,7 @@
(cm/replace-all-matching-values-by-new-value "FAVOURITES_COUNT" favourites_count))) (cm/replace-all-matching-values-by-new-value "FAVOURITES_COUNT" favourites_count)))
(defn masto->html2 [statuses] (defn masto->html2 [statuses]
(let [html (b/index-html-hiccup)] (let [html (b/post-html-hiccup)]
(map (fn [status] (map (fn [status]
(let [{:keys [account created_at content media_attachments replies_count reblogs_count favourites_count card url]} status] (let [{:keys [account created_at content media_attachments replies_count reblogs_count favourites_count card url]} status]
(-> html (-> html

View file

@ -20,10 +20,10 @@
(def masto-embed "masto-embed") (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 [] (defn post-html-hiccup []
(h/as-hiccup (h/parse index-html))) (h/as-hiccup (h/parse post-html)))
(defn element-from-document-by-name [name] (defn element-from-document-by-name [name]
(-> js/document (-> js/document