From 5bc74ac762926b4310569963e30cbf85f265dbcb Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Thu, 13 Mar 2025 23:44:19 +0000 Subject: Run summarize top statuses --- toots.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'toots.lisp') diff --git a/toots.lisp b/toots.lisp index f36c9eb..ed7303d 100644 --- a/toots.lisp +++ b/toots.lisp @@ -13,8 +13,11 @@ :secret (uiop:getenv "MASTODON_SECRET") :access-token (uiop:getenv "MASTODON_TOKEN"))) -(defun get-timeline (&key (timeline :home)) - (tooter:timeline *client* timeline)) +(defun get-timeline (&key (timeline :home) (limit 10) (max-id nil) (min-id nil)) + (tooter:timeline *client* timeline :limit limit :max-id max-id :min-id min-id)) (defun get-status (id) (tooter:find-status *client* id)) + +(defun post-toot (content) + (tooter:make-status *client* content)) -- cgit v1.2.3