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

cleanup in app

Browse source
This commit is contained in:
bom 2022-03-11 09:50:01 +01:00
parent e678de8f4e
commit 4bde2412fe
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/main/dda/masto_embed/app.cljs
View file

@ -105,14 +105,14 @@
(defn replies-mode [host-url account-name post-id filter-favorited]
(go
(let [test-status (->
(<p! (api/get-replies host-url post-id))
api/mastojs->edn)
favorited (<! (favorited? host-url account-name (map :id (:descendants test-status))))
combined (map (fn [s f] {:status s :favorited f}) (:descendants test-status) favorited)
filtered (map :status (filter :favorited combined))
statuus (if filter-favorited filtered test-status)]
(->> statuus
(let [replies (->
(<p! (api/get-replies host-url post-id))
api/mastojs->edn)
favorited (<! (favorited? host-url account-name (map :id (:descendants replies))))
combined (map (fn [s f] {:status s :favorited f}) (:descendants replies) favorited)]
(->> combined
(filter #(infra/debug (or (not filter-favorited) (:favorited %))))
(map :status)
(infra/debug)
(rb/masto->html)
(render-html)
@ -122,8 +122,7 @@
(let [host-url (host-url-from-document)
account-name (account-name-from-document)
replies-to (replies-to-from-document)
filter-favorited (filter-favorited-from-document)
]
filter-favorited (filter-favorited-from-document)]
(if (nil? replies-to)
(account-mode host-url account-name)
(replies-mode host-url account-name replies-to filter-favorited))