From 4bde2412feec9cb6c9f457d14ec3fd1934f2e2cd Mon Sep 17 00:00:00 2001
From: bom <mattis.boeckle@meissa-gmbh.de>
Date: Fri, 11 Mar 2022 09:50:01 +0100
Subject: [PATCH] cleanup in app

---
 src/main/dda/masto_embed/app.cljs | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/src/main/dda/masto_embed/app.cljs b/src/main/dda/masto_embed/app.cljs
index 968212f..b832ef3 100644
--- a/src/main/dda/masto_embed/app.cljs
+++ b/src/main/dda/masto_embed/app.cljs
@@ -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))