From 36cb27935fec119f459ad171c2fe645e4d716051 Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 12 Aug 2018 21:06:14 +0200
Subject: Allow clients to request capabilities at connection

---
 irc/bot.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'irc')

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)))
-- 
cgit v1.2.3