diff options
| -rw-r--r-- | irc/bot.rkt | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/irc/bot.rkt b/irc/bot.rkt index 7366a6f..ff36dd0 100644 --- a/irc/bot.rkt +++ b/irc/bot.rkt @@ -74,7 +74,9 @@ (define (register [nick (current-nick)] #:user [user nick] #:mode [mode "0"] #:unused [unused "*"] #:realname [realname user] - #:pass [pass #f]) + #:pass [pass #f] + #:capabilities [caps '()]) + (for-each (λ (cap) (send (msg 'CAP '("REQ") cap))) caps) (when pass (send (msg 'PASS '() pass))) (send (msg 'USER (list user mode unused) realname)) (send (msg 'NICK '() nick))) |