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)