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

One function for inserting elem, one for filling vals

Browse source
This commit is contained in:
erik 2024-05-17 18:12:22 +02:00
parent 4fe4060a1f
commit 8422e3580a
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/main/dda/masto_embed/account_mode.cljs
View file

@ -102,15 +102,17 @@
;; ToDo: Funktionalität aufsplitten. Ich würde zuerst das html um die link prev erweitern und dann suchen/ersetzen ;; ToDo: Funktionalität aufsplitten. Ich würde zuerst das html um die link prev erweitern und dann suchen/ersetzen
;; Eventuell das Gleiche auch für masto->media->html ;; Eventuell das Gleiche auch für masto->media->html
(defn insert-link-prev->html [html card] (defn insert-link-prev [html]
(if-let [link-preview-url (get-in card [0 :url])
link-preview-img-url (get-in card [0 :image])
link-preview-title (get-in card [0 :title])
link-preview-description (get-in card [0 :description])]
(let [class-name "mastodon-post-link-preview"] (let [class-name "mastodon-post-link-preview"]
(postwalk #(insert-into-class % class-name link_preview) html)) (postwalk #(insert-into-class % class-name link_preview) html)))
html))
(defn masto-link-prev->html [html card]
(let [{:keys [url image title description]} card]
(-> (insert-link-prev html)
(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_TITLE" title)
(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