trilemabot-voicer 1 USAGE
trilemabot-voicer 2
trilemabot-voicer 3 (asdf:load-system :trilemabot)
trilemabot-voicer 4 (defvar *bot*)
trilemabot-voicer 5 (setq *bot*
trilemabot-voicer 6 (trlb:make-trilemabot
trilemabot-voicer 7 "chat.freenode.net" 6667 "nick" "password" '("#trilema")))
trilemabot-voicer 8
trilemabot-voicer 9 ;; connect in separate thread, returning thread
trilemabot-voicer 10 (ircbot:ircbot-connect-thread *bot*)
trilemabot-voicer 11
trilemabot-voicer 12 ;;;; 1. Self-voicing
trilemabot-voicer 13
trilemabot-voicer 14 ;; ask for n !!up OTPs from deedbot
trilemabot-voicer 15 (loop for i from 1 to n do
trilemabot-voicer 16 (trlb:trilemabot-send-up *bot*)
trilemabot-voicer 17 (sleep 0.5))
trilemabot-voicer 18
trilemabot-voicer 19 ;; get messages received from deedbot
trilemabot-voicer 20 (trlb:trilemabot-inbox *bot*)
trilemabot-voicer 21
trilemabot-voicer 22 ;; add decrypted !!up OTPs
trilemabot-voicer 23 (trlb:trilemabot-add-voice-otps *bot*
trilemabot-voicer 24 "decrypted-otp-1" "decrypted-otp2" ... "decrypted-otpn")
trilemabot-voicer 25
trilemabot-voicer 26 ;; get the list of !!up OTPs
trilemabot-voicer 27 (trlb:trilemabot-voice-otp-stash *bot*)
trilemabot-voicer 28
trilemabot-voicer 29 ;; save !!up OTPs to disk
trilemabot-voicer 30 (trlb:trilemabot-save-voice-otp-stash *bot* "voice-otps.sexp")
trilemabot-voicer 31
trilemabot-voicer 32 ;; self-voice
trilemabot-voicer 33 (trlb:trilemabot-voice *bot*)
trilemabot-voicer 34
trilemabot-voicer 35 ;; if `voice-otp-stash' is not empty, the bot will automatically
trilemabot-voicer 36 ;; self-voice on reconnect
trilemabot-voicer 37 (ircbot:ircbot-reconnect *bot*)