source: project/release/4/vandusen/trunk/vandusen-control.scm @ 21508

Last change on this file since 21508 was 18852, checked in by Moritz Heidkamp, 10 years ago

vandusen: run commands in separate thread (todo: add thread pool so as not to be flooded)

File size: 424 bytes
Line 
1(module vandusen-control ()
2
3(import chicken scheme)
4(use vandusen irc)
5
6(plugin 'control
7        (lambda ()
8          (command 'join
9                   `(: "join" (+ space) (submatch (+ any)))
10                   (lambda (m channel)
11                     (call-with-connection (cut irc:join <> channel))
12                     #t))
13
14          (command 'leave
15                   `(: "leave" (+ space) (submatch (+ any)))
16                   (lambda (m channel)
17                     (call-with-connection (cut irc:leave <> channel))
18                     #t))))
19
20)
Note: See TracBrowser for help on using the repository browser.