blob: f36c9ebae6515d8bdbe1841d5cd8f3894beb5abb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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))
|
