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