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

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

vandusen: add colon or comma separator to tell command and add irc:whisper

File size: 783 bytes
Line 
1(define (irc:message-reply-destination message)
2  (let ((first-param (car (irc:message-parameters message)))
3        (prefix (irc:message-prefix message)))
4    (if (irregex-search '(: bos "#") first-param)
5        (values first-param (format "~A: " (car prefix)))
6        (values (and prefix (car prefix)) ""))))
7
8(define (irc:message-from-channel? message)
9  (irregex-search '(: bos "#" (+ (~ space)))
10                 (car (irc:message-parameters message))))
11
12(define (irc:whisper connection nick message #!optional (method irc:say))
13  (method connection message nick))
14
15(define (irc:reply connection message text #!optional (method irc:say) (prefixed #t))
16  (receive (recipient prefix)
17    (irc:message-reply-destination message)
18    (method connection
19            (if prefixed (conc prefix text) text)
20            recipient)))
21
Note: See TracBrowser for help on using the repository browser.