projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1c55e6d
)
command line thing starts to do things
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Sun, 22 Nov 2015 23:40:14 +0000
(17:40 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Sun, 22 Nov 2015 23:40:14 +0000
(17:40 -0600)
demos/irc.scm
patch
|
blob
|
history
diff --git
a/demos/irc.scm
b/demos/irc.scm
index 62c241a0f381b62f3bad5ba3355b46fa7958f2e7..10436be6f91d886c0e682d0dffb2ee76e2803c64 100755
(executable)
--- a/
demos/irc.scm
+++ b/
demos/irc.scm
@@
-95,11
+95,16
@@
(define (main args)
(let* ((options (getopt-long args option-spec))
(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)))
(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)))
(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))))