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