Changeset 21509 in project

Timestamp:

11/17/10 15:08:15 (10 years ago)

Author:

Moritz Heidkamp

Message:

vandusen: allow name-prefixed commands in channels only

File:

• release/4/vandusen/trunk/vandusen.scm (modified) (1 diff)

release/4/vandusen/trunk/vandusen.scm

@@ -145 +145 @@
 
   (let ((matcher `(: ,($ 'nick) ":" (+ whitespace) ,matcher)))
-    (irc:add-message-handler! connection (make-handler matcher)
+    (irc:add-message-handler! connection (let ((handle (make-handler matcher)))
+                                           (lambda (m)
+                                             (and (eq? (string-ref (car (irc:message-parameters m)) 0) #\#)
+                                                  (handle m))))
                               command: "PRIVMSG"
                               body: (match-body matcher))))