38 lines
675 B
Common Lisp
38 lines
675 B
Common Lisp
;;;; package.lisp
|
|
|
|
(defpackage #:glacier
|
|
(:use #:cl)
|
|
(:import-from :simple-config
|
|
:load-config
|
|
:config)
|
|
(:import-from :alexandria
|
|
:hash-table-keys
|
|
:flatten)
|
|
(:export :make-bot
|
|
:run-bot
|
|
:mastodon-bot
|
|
:bot-on-update
|
|
:bot-on-delete
|
|
:bot-on-notification
|
|
:bot-username
|
|
:after-every
|
|
:after
|
|
:on
|
|
:post
|
|
:reply
|
|
:add-command
|
|
:agetf
|
|
:bot-client
|
|
:terminate-connection
|
|
:*command-prefix*
|
|
:no-bot-p
|
|
:follow-request-p
|
|
:poll-ended-p
|
|
:follow-p
|
|
:boost-p
|
|
:fave-p
|
|
:mention-p
|
|
:delete-parent
|
|
:bot-post-p
|
|
:time-to-seconds))
|