Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files: specbot.lisp Log Message: s/Comon/Common/g

Date: Sat Jun 12 13:03:22 2004 Author: bmastenbrook

Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.1 cl-irc/example/specbot.lisp:1.2 --- cl-irc/example/specbot.lisp:1.1 Thu Jun 3 07:11:59 2004 +++ cl-irc/example/specbot.lisp Sat Jun 12 13:03:22 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.1 2004/06/03 14:11:59 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.2 2004/06/12 20:03:22 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $

;;;; specbot.lisp - an example IRC bot for cl-irc @@ -50,9 +50,17 @@ it (format nil "Nothing was found for: ~A" str)))

+(defun elisp-lookup (str) + (aif (and (find-package :elisp-lookup) + (funcall (intern "SYMBOL-LOOKUP" :elisp-lookup) + str)) + it + (format nil "Nothing was found for: ~A" str))) + (defparameter *spec-providers* - '((clhs-lookup "clhs" "The Comon Lisp HyperSpec") - (r5rs-lookup "r5rs" "The Revised 5th Ed. Report on the Algorithmic Language Scheme"))) + '((clhs-lookup "clhs" "The Common Lisp HyperSpec") + (r5rs-lookup "r5rs" "The Revised 5th Ed. Report on the Algorithmic Language Scheme") + (elisp-lookup "elisp" "GNU Emacs Lisp Reference Manual")))

(defun valid-message (string prefix &key space-allowed) (if (eql (search prefix string :test #'char-equal) 0) @@ -75,7 +83,8 @@ (source message) (first (arguments message)))) (to-lookup (strip-address (trailing-argument message)))) - (if (member to-lookup '("help" "help?") :test #'string-equal) + (if (and (not (string= to-lookup (trailing-argument message))) + (member to-lookup '("help" "help?") :test #'string-equal)) (progn (privmsg *connection* destination (format nil "To use the ~A bot, say something like "database term", where database is one of (~{~S~^, ~}) and term is the desired lookup."