From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 23 Nov 2015 00:57:29 +0000 (-0600)
Subject: Accept a list of channels via the command line
X-Git-Tag: v0.1.0~99
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=c390e803039940bf3f7337a4d3a1d7591345f58d;p=8sync.git

Accept a list of channels via the command line
---

diff --git a/demos/irc.scm b/demos/irc.scm
index 84b5528..7a8d2ab 100755
--- a/demos/irc.scm
+++ b/demos/irc.scm
@@ -65,7 +65,7 @@
       (display (irc-line dest))))
 
 (define* (handle-login socket username
-                       #:optional
+                       #:key
                        (hostname "*")
                        (servername "*")
                        (realname username)
@@ -130,6 +130,7 @@
            ,(lambda (s)
               (if (string->number s) #t #f))))
     (username (single-char #\u) (required? #t) (value #t))
+    (channels (value #t))
     (listen)))
 
 (define (main args)
@@ -138,13 +139,15 @@
          (port (or (option-ref options 'port #f)
                    default-irc-port))
          (username (option-ref options 'username #f))
-         (listen (option-ref options 'listen #f)))
+         (listen (option-ref options 'listen #f))
+         (channels (option-ref options 'channels "")))
     (display `((server ,hostname) (port ,port) (username ,username)
-               (listen ,listen)))
+               (listen ,listen) (channels-split ,(string-split channels #\space))))
     (newline)
     (queue-and-start-irc-agenda!
      (make-agenda)
      (irc-socket-setup hostname port)
      #:inet-port port
      #:username username
-     #:handler (make-simple-irc-handler handle-line))))
+     #:handler (make-simple-irc-handler handle-line)
+     #:channels (string-split channels #\space))))