[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp

[Erik Enge]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv31463

Modified Files:
	protocol.lisp 
Log Message:
adding add-default-hooks

Date: Sun Nov 23 18:22:19 2003
Author: eenge

Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.14 net-nittin-irc/protocol.lisp:1.15
--- net-nittin-irc/protocol.lisp:1.14	Sun Nov 23 17:39:16 2003
+++ net-nittin-irc/protocol.lisp	Sun Nov 23 18:22:19 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.14 2003/11/23 22:39:16 eenge Exp $
+;;;; $Id: protocol.lisp,v 1.15 2003/11/23 23:22:19 eenge Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -90,6 +90,25 @@
     (dolist (hook hooks)
       (add-hook connection (car hook) (cadr hook)))
     connection))
+
+(defmethod add-default-hooks ((connection connection))
+  (dolist (message '(irc-rpl_whoisuser-message
+                     irc-rpl_list-message
+                     irc-rpl_topic-message
+                     irc-rpl_namreply-message
+                     irc-ping-message
+                     irc-join-message
+                     irc-topic-message
+                     irc-ping-message
+                     irc-quit-message
+                     irc-kick-message
+                     irc-nick-message
+                     ctcp-time-message
+                     ctcp-source-message
+                     ctcp-finger-message
+                     ctcp-version-message
+                     ctcp-ping-message))
+      (add-hook connection message #'default-hook)))
 
 (defmethod client-raw-log ((connection connection) message)
   (let ((stream (client-stream connection)))