|
|
@ -53,6 +53,7 @@
|
|
|
|
(<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))
|
|
|
@ -68,13 +69,9 @@
|
|
|
|
(<p! (api/get-account-statuses host-url account-id))
|
|
|
|
(<p! (api/get-account-statuses host-url account-id))
|
|
|
|
api/mastojs->edn)
|
|
|
|
api/mastojs->edn)
|
|
|
|
]
|
|
|
|
]
|
|
|
|
(print host-url)
|
|
|
|
|
|
|
|
(print account-name)
|
|
|
|
|
|
|
|
(print account-id)
|
|
|
|
|
|
|
|
(->> statuus
|
|
|
|
(->> statuus
|
|
|
|
(take 14)
|
|
|
|
(take 4)
|
|
|
|
(api/masto->html)
|
|
|
|
(api/masto->html)
|
|
|
|
(render-html)
|
|
|
|
(render-html)
|
|
|
|
(infra/debug)
|
|
|
|
|
|
|
|
(render-to-document))
|
|
|
|
(render-to-document))
|
|
|
|
)))
|
|
|
|
)))
|
|
|
|