[beirc-cvs] CVS update: beirc/beirc.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv18565

Modified Files:
	beirc.lisp 
Log Message:
add kick and ban presentation translators for nicknames.

Date: Sat Sep 24 21:13:54 2005
Author: afuchs

Index: beirc/beirc.lisp
diff -u beirc/beirc.lisp:1.27 beirc/beirc.lisp:1.28
--- beirc/beirc.lisp:1.27	Sat Sep 24 21:03:14 2005
+++ beirc/beirc.lisp	Sat Sep 24 21:13:54 2005
@@ -658,6 +658,33 @@
     (object)
   (list object))
 
+(define-presentation-to-command-translator nickname-to-kick-translator
+    (nickname com-kick beirc
+              :gesture :menu
+              :menu t
+              :documentation "Kick this user"
+              :pointer-documentation "Kick this user")
+    (object)
+  (list object))
+
+(define-presentation-to-command-translator nickname-to-ban-nick-translator
+    (nickname com-ban-nick beirc
+              :gesture :menu
+              :menu t
+              :documentation "Ban this user's nickname"
+              :pointer-documentation "Ban this user's nickname")
+    (object)
+  (list object))
+
+(define-presentation-to-command-translator nickname-to-ban-hostmask-translator
+    (nickname com-ban-hostmask beirc
+              :gesture :menu
+              :menu t
+              :documentation "Ban this user's hostmask"
+              :pointer-documentation "Ban this user's hostmask")
+    (object)
+  (list object))
+
 (define-presentation-to-command-translator url-to-browse-url-translator
     (url com-browse-url beirc)
    (presentation)