diff options
Diffstat (limited to 'toots.lisp')
-rw-r--r-- | toots.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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)) |