summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--irc/bot.rkt4
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)))