(module vandusen-control ()

(import chicken scheme)
(use vandusen irc)

(plugin 'control
	(lambda ()
	  (command 'join
		   `(: "join" (+ space) (submatch (+ any)))
		   (lambda (m channel)
		     (call-with-connection (cut irc:join <> channel))
		     #t))

	  (command 'leave
		   `(: "leave" (+ space) (submatch (+ any)))
		   (lambda (m channel)
		     (call-with-connection (cut irc:leave <> channel))
		     #t))))

)