Filter boosts from account status

This commit is contained in:
bom 2024-05-10 11:21:18 +02:00
parent 93b1faff6a
commit 9f75c9ed0d

View file

@ -57,11 +57,12 @@
(<p! (api/get-directory host-url)) (<p! (api/get-directory host-url))
api/mastojs->edn api/mastojs->edn
(filter #(= account-name (:acct %))) (filter #(= account-name (:acct %)))
(infra/debug)
(map :id) (map :id)
first))) first)))
out)) out))
; (infra/debug)
(defn account-mode [host-url account-name] (defn account-mode [host-url account-name]
(go (go
(let [account-id (<! (find-account-id host-url account-name)) (let [account-id (<! (find-account-id host-url account-name))
@ -69,6 +70,7 @@
(<p! (api/get-account-statuses host-url account-id)) (<p! (api/get-account-statuses host-url account-id))
api/mastojs->edn)] api/mastojs->edn)]
(->> statuus (->> statuus
(filter #(= nil (:reblog %)))
(take 4) (take 4)
(masto->html) (masto->html)
(render-html) (render-html)