-
+ 8739F7EEC64FE69AA88360214528CBC658C20A47AF41309C5C054F89FB66D03A401BFA3E1565BB26A21BB1C1CA6AC168692A02499A81B8A1FEE4401622A65FD3
trilemabot/USAGE
(0 . 0)(1 . 37)
 47 USAGE
 48 
 49 (asdf:load-system :trilemabot)
 50 (defvar *bot*)
 51 (setq *bot*
 52       (trlb:make-trilemabot
 53        "chat.freenode.net" 6667 "nick" "password" '("#trilema")))
 54 
 55 ;; connect in separate thread, returning thread
 56 (ircbot:ircbot-connect-thread *bot*)
 57 
 58 ;;;; 1. Self-voicing
 59 
 60 ;; ask for n !!up OTPs from deedbot
 61 (loop for i from 1 to n do
 62   (trlb:trilemabot-send-up *bot*)
 63   (sleep 0.5))
 64 
 65 ;; get messages received from deedbot
 66 (trlb:trilemabot-inbox *bot*)
 67 
 68 ;; add decrypted !!up OTPs
 69 (trlb:trilemabot-add-voice-otps *bot*
 70  "decrypted-otp-1" "decrypted-otp2" ... "decrypted-otpn")
 71 
 72 ;; get the list of !!up OTPs
 73 (trlb:trilemabot-voice-otp-stash *bot*)
 74 
 75 ;; save !!up OTPs to disk
 76 (trlb:trilemabot-save-voice-otp-stash *bot* "voice-otps.sexp")
 77 
 78 ;; self-voice
 79 (trlb:trilemabot-voice *bot*)
 80 
 81 ;; if `voice-otp-stash' is not empty, the bot will automatically
 82 ;; self-voice on reconnect
 83 (ircbot:ircbot-reconnect *bot*)