[cl-irc-cvs] r169 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Jan  6 06:08:56 2007
New Revision: 169

Modified:
   trunk/command.lisp
Log:
Allow reason specification when parting channels/a channel.

Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp	(original)
+++ trunk/command.lisp	Sat Jan  6 06:08:56 2007
@@ -21,8 +21,8 @@
 (defgeneric squit (connection server comment))
 (defgeneric join (connection channel &key password))
 (defgeneric multi-join (connection channels))
-(defgeneric part (connection channel))
-(defgeneric part-all (connection))
+(defgeneric part (connection channel &optional reason))
+(defgeneric part-all (connection &optional reason))
 (defgeneric topic- (connection channel topic))
 (defgeneric names (connection channel &optional target))
 (defgeneric list- (connection &optional channel target))
@@ -159,16 +159,17 @@
   (dolist (channel channels)
     (join connection channel)))
 
-(defmethod part ((connection connection) (channel string))
-  (send-irc-message connection :part channel))
+(defmethod part ((connection connection) (channel string) &optional reason)
+  (apply #'send-irc-message
+         connection :part channel (when reason (list reason))))
 
-(defmethod part ((connection connection) (channel channel))
-  (part connection (name channel)))
+(defmethod part ((connection connection) (channel channel) &optional reason)
+  (part connection (name channel) reason))
 
 ;; utility function not part of the RFC
-(defmethod part-all ((connection connection))
+(defmethod part-all ((connection connection) &optional reason)
   (dolist (channel (channels connection))
-    (part connection (name channel))))
+    (part connection (name channel) reason)))
 
 (defmethod topic- ((connection connection) (channel string) (topic string))
   (send-irc-message connection :topic channel topic))