diff options
| author | tilpner | 2018-08-12 21:06:27 +0200 |
|---|---|---|
| committer | tilpner | 2018-08-12 21:06:27 +0200 |
| commit | c6e5e5128557be5c64fdf0fc59c28e4e3ec45c50 (patch) | |
| tree | 1403d43bc952f484f9ae7820401078db890460d2 | |
| parent | 36cb27935fec119f459ad171c2fe645e4d716051 (diff) | |
| download | meep-c6e5e5128557be5c64fdf0fc59c28e4e3ec45c50.tar.gz meep-c6e5e5128557be5c64fdf0fc59c28e4e3ec45c50.tar.xz meep-c6e5e5128557be5c64fdf0fc59c28e4e3ec45c50.zip | |
Add (part) function
| -rw-r--r-- | irc/bot.rkt | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/irc/bot.rkt b/irc/bot.rkt index ff36dd0..7975786 100644 --- a/irc/bot.rkt +++ b/irc/bot.rkt @@ -84,6 +84,9 @@ (define (join . chans) (send (msg 'JOIN chans #f))) +(define (part chans [reason #f]) + (send (msg 'PART (list chans) reason))) + (define (quit reason) (send (msg 'QUIT '() reason))) |