diff options
| author | Gene Pasquet <dev@etenil.net> | 2025-03-07 05:21:23 +0000 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2025-03-23 09:30:09 +0000 |
| commit | 8e27ef2a45052ffc7a5eb275e99af34b9195fa72 (patch) | |
| tree | 279188100a8679ed446eeb12fa6486667536f079 /toots.lisp | |
| parent | 00803fdc6df28c06b3d7c85f47e9c7e0394a167f (diff) | |
Added tracker
Diffstat (limited to 'toots.lisp')
| -rw-r--r-- | toots.lisp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/toots.lisp b/toots.lisp new file mode 100644 index 0000000..f36c9eb --- /dev/null +++ b/toots.lisp @@ -0,0 +1,20 @@ +(in-package :phaser.toots) + +(ignore-errors + ;; Don't signal if .env is missing. + (.env:load-env (merge-pathnames ".env"))) + + +(defvar *client* + (make-instance 'tooter:client + :base (uiop:getenv "MASTODON_URL") + :name "Newsphaser bot" + :key (uiop:getenv "MASTODON_KEY") + :secret (uiop:getenv "MASTODON_SECRET") + :access-token (uiop:getenv "MASTODON_TOKEN"))) + +(defun get-timeline (&key (timeline :home)) + (tooter:timeline *client* timeline)) + +(defun get-status (id) + (tooter:find-status *client* id)) |