22 lines
557 B
Scheme
22 lines
557 B
Scheme
|
(load "../chatdir-inotify.scm")
|
||
|
|
|
||
|
|
(define (join-callback channel)
|
||
|
|
(print "Joined " channel "! ^_^")
|
||
|
|
(channel-joined "test chatdir" channel))
|
||
|
|
|
||
|
|
(define (leave-callback channel)
|
||
|
|
(print "We've left " channel " </3>"))
|
||
|
|
|
||
|
|
(define (send-message-callback channel message)
|
||
|
|
(print "Sent message to " channel ": " message))
|
||
|
|
|
||
|
|
|
||
|
|
(define *callbacks*
|
||
|
|
(list (cons 'join-channel join-callback)
|
||
|
|
(cons 'leave-channel leave-callback)
|
||
|
|
(cons 'send-message send-message-callback)))
|
||
|
|
|
||
|
|
|
||
|
|
(input-loop-init "test chatdir" *callbacks*)
|
||
|
|
(input-loop "test chatdir" *callbacks*)
|