From ed7c2a1f5fdf1b5718dd3f99be25dc9e35e57a68 Mon Sep 17 00:00:00 2001
From: erik <erik.seiert@meissa-gmbh.de>
Date: Wed, 15 May 2024 16:12:21 +0200
Subject: [PATCH] Add debug function

---
 src/main/dda/masto_embed/account_mode.cljs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/main/dda/masto_embed/account_mode.cljs b/src/main/dda/masto_embed/account_mode.cljs
index 016b0cd..410fdfc 100644
--- a/src/main/dda/masto_embed/account_mode.cljs
+++ b/src/main/dda/masto_embed/account_mode.cljs
@@ -76,3 +76,17 @@
            (masto->html)
            (render-html)
            (b/render-to-document)))))
+
+; Execute in browser repl to get some infos about incoming data
+(defn account-mode-debug [host-url account-name]
+  (go
+    (let [account-id (<! (find-account-id host-url account-name))
+          statuus (->
+                   (<p! (api/get-account-statuses host-url account-id))
+                   api/mastojs->edn)]
+      (->> statuus
+           (filter #(= nil (:reblog %)))
+           (filter #(= nil (:in_reply_to_account_id %)))
+           (take 4)
+           (infra/debug)
+           ))))