Run summarize top statuses

1 files changed, 5 insertions, 2 deletions

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))