aboutsummaryrefslogtreecommitdiff
path: root/toots.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'toots.lisp')
-rw-r--r--toots.lisp7
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))