Add arg to masto-html for mode

src/main/dda/masto_embed/modes.cljs

@@ -75,7 +75,7 @@
            (filter #(or (not filter-favorited) (:favorited %)))
            (reverse)
            (map :status)
-           (th/masto->html)
+           (th/masto->html "replies-mode")
            (render-html)
            (b/render-to-document)))))
 
@@ -89,6 +89,6 @@
            (filter #(= nil (:reblog %)))
            (filter #(= nil (:in_reply_to_account_id %)))
            (take 4)
-           (th/masto->html)
+           (th/masto->html "account-mode")
            (render-html)
            (b/render-to-document)))))

src/main/dda/masto_embed/to_html.cljs

@@ -98,7 +98,11 @@
       (cm/replace-all-matching-values-by-new-value "REBLOGS_COUNT" reblogs_count)
       (cm/replace-all-matching-values-by-new-value "FAVOURITES_COUNT" favourites_count)))
 
-(defn masto->html [statuses]
+(defn insert-mode [html mode]
+  (-> html
+      (cm/replace-all-matching-values-by-new-value "section MODE" (str "section " mode))))
+
+(defn masto->html [mode statuses]
   (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]
@@ -107,5 +111,6 @@
                  (masto-content->html content)
                  (masto-media->html media_attachments)
                  (masto-link-prev->html card)
-                 (masto-footer->html replies_count reblogs_count favourites_count))))
+                 (masto-footer->html replies_count reblogs_count favourites_count)
+                 (insert-mode mode))))
          statuses)))