USAGE

(asdf:load-system :trilemabot)
(defvar *bot*)
(setq *bot*
      (trlb:make-trilemabot
       "chat.freenode.net" 6667 "nick" "password" '("#trilema")))

;; connect in separate thread, returning thread
(ircbot:ircbot-connect-thread *bot*)

;;;; 1. Self-voicing

;; ask for n !!up OTPs from deedbot
(loop for i from 1 to n do
  (trlb:trilemabot-send-up *bot*)
  (sleep 0.5))

;; get messages received from deedbot
(trlb:trilemabot-inbox *bot*)

;; add decrypted !!up OTPs
(trlb:trilemabot-add-voice-otps *bot*
 "decrypted-otp-1" "decrypted-otp2" ... "decrypted-otpn")

;; get the list of !!up OTPs
(trlb:trilemabot-voice-otp-stash *bot*)

;; save !!up OTPs to disk
(trlb:trilemabot-save-voice-otp-stash *bot* "voice-otps.sexp")

;; self-voice
(trlb:trilemabot-voice *bot*)

;; if `voice-otp-stash' is not empty, the bot will automatically
;; self-voice on reconnect
(ircbot:ircbot-reconnect *bot*)