From 8e27ef2a45052ffc7a5eb275e99af34b9195fa72 Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Fri, 7 Mar 2025 05:21:23 +0000
Subject: Added tracker

---
 toots.lisp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 toots.lisp

(limited to 'toots.lisp')

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))
-- 
cgit v1.2.3