Filter boosts from account status
This commit is contained in:
parent
93b1faff6a
commit
9f75c9ed0d
1 changed files with 3 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue