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

Last change on this file since 18259 was 18259, checked in by Moritz Heidkamp, 11 years ago

vandusen: initial import

File size: 672 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:reply connection message text #!optional (method irc:say) (prefixed #t))
13  (receive (recipient prefix)
14    (irc:message-reply-destination message)
15    (method connection
16            (if prefixed (conc prefix text) text)
17            recipient)))
18
Note: See TracBrowser for help on using the repository browser.