From: Christopher Allan Webber Date: Sun, 22 Nov 2015 23:40:14 +0000 (-0600) Subject: command line thing starts to do things X-Git-Tag: v0.1.0~101 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=0784ebade216f3d24c3e60602806a5955f0f572c;p=8sync.git command line thing starts to do things --- diff --git a/demos/irc.scm b/demos/irc.scm index 62c241a..10436be 100755 --- a/demos/irc.scm +++ b/demos/irc.scm @@ -95,11 +95,16 @@ (define (main args) (let* ((options (getopt-long args option-spec)) - (server (option-ref options 'server #f)) + (hostname (option-ref options 'server #f)) (port (or (option-ref options 'port #f) default-irc-port)) (username (option-ref options 'username #f)) (listen (option-ref options 'listen #f))) - (display `((server ,server) (port ,port) (username ,username) + (display `((server ,hostname) (port ,port) (username ,username) (listen ,listen))) - (newline))) + (newline) + (queue-and-start-irc-agenda! + (make-agenda) + (irc-socket-setup hostname port) + #:inet-port port + #:handler (make-simple-irc-handler handle-line))))