Add debug function
This commit is contained in:
parent
afb4152500
commit
ed7c2a1f5f
1 changed files with 14 additions and 0 deletions
|
@ -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)
|
||||
))))
|
||||
|
|
Loading…
Reference in a new issue