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

do not show link-preview if card is empty

Browse source
This commit is contained in:
Clemens 2024-05-29 10:12:43 +02:00
parent 8d41a8236d
commit a7ac9fab94
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/main/dda/masto_embed/to_html.cljs
View file

@ -83,12 +83,14 @@
(defn masto-link-prev->html [html card] (defn masto-link-prev->html [html card]
(let [{:keys [url image title description]} card] (let [{:keys [url image title description]} card]
(if (nil? card)
html
(-> html (-> html
(insert-link-prev) (insert-link-prev)
(cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_URL" url) (cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_URL" url)
(cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_IMG_URL" image) (cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_IMG_URL" image)
(cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_TITLE" title) (cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_TITLE" title)
(cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_DESC" description)))) (cm/replace-all-matching-values-by-new-value "LINK_PREVIEW_DESC" description)))))
(defn masto-footer->html [html replies_count reblogs_count favourites_count] (defn masto-footer->html [html replies_count reblogs_count favourites_count]
(-> html (-> html
@ -99,7 +101,8 @@
(defn masto->html [statuses] (defn masto->html [statuses]
(let [html (b/post-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
abc (js/console.log "CARD: " card)]
(-> html (-> html
(masto-header->html account created_at url) (masto-header->html account created_at url)
(masto-content->html content) (masto-content->html content)