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

Modified Files: cliki.lisp specbot.lisp Log Message: apropos searching; new module for specbot?

Date: Tue Nov 23 03:54:08 2004 Author: bmastenbrook

Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.27 cl-irc/example/cliki.lisp:1.28 --- cl-irc/example/cliki.lisp:1.27 Wed Oct 20 22:21:33 2004 +++ cl-irc/example/cliki.lisp Tue Nov 23 03:54:08 2004 @@ -1,4 +1,4 @@ - ;;;; $Id: cliki.lisp,v 1.27 2004/10/20 20:21:33 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.28 2004/11/23 02:54:08 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $

;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -70,6 +70,14 @@ (push (cons term defn) *aliases*) (write-top-definition :of *aliases* :type :alias))

+(defun cliki-apropos (search-string) + (let ((found (remove-duplicates + (loop for (term . defn) in *small-definitions* + if (search search-string defn :test #'string-equal) + collect term) :test #'string-equal))) + (if found (format nil "Matches: ~{~S~^ ~}" found) + "No Matches"))) + (defvar *lookup-depth* 0)

(defvar *followed-aliases* nil) @@ -416,7 +424,10 @@ (format nil "If you say multiple words to me which I don't recognize and it's not found as a lookup, you might get a sarcastic reply. Don't abuse this too much."))) ("advice" . ,(lambda (nick) - (format nil "Try saying something like ``~A: advice #11904'' to get some advice." nick))))) + (format nil "Try saying something like ``~A: advice #11904'' to get some advice." nick))) + ("apropos" . + ,(lambda (nick) + (format nil "Try ``~A: apropos foo'' to search for all small definitions containing ''foo''." nick)))))

(defun cliki-bot-help (nick) (format nil "There are multiple help modules. Try ``/msg ~A help kind'', where kind is one of: ~{"~A"~^, ~}." @@ -650,6 +661,9 @@ (if (scan "^(?i)(?i)do my bidding!*$" first-pass) "Yes, my master.") (if (scan "^(?i)chant(\s|!|\?|\.|$)*" first-pass) (format nil "MORE ~A" *more*)) + (let ((str (nth-value 1 (scan-to-strings "^(?i)apropos\s+(.+\S)\s*$" first-pass)))) + (and str + (cliki-apropos (elt str 0)))) (if (scan "^(?i)advice$" first-pass) (random-advice)) (let ((str (nth-value 1 (scan-to-strings "^(?i)advise\s+(for\s+|)(\S+)$" first-pass))))

Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.11 cl-irc/example/specbot.lisp:1.12 --- cl-irc/example/specbot.lisp:1.11 Tue Nov 16 23:45:27 2004 +++ cl-irc/example/specbot.lisp Tue Nov 23 03:54:08 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.11 2004/11/16 22:45:27 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.12 2004/11/23 02:54:08 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $

;;;; specbot.lisp - an example IRC bot for cl-irc @@ -112,9 +112,15 @@ (format nil "To use the ~A bot, say something like "database term", where database is one of (~{~S~^, ~}) and term is the desired lookup. The available databases are:" *nickname* (mapcar #'second *spec-providers*))) - (loop for (a b c d) on *spec-providers* by #'cddddr - do (privmsg *connection* destination - "~@{~{~*~S, ~A~}~}~}" a b c d)) + (loop for i from 1 for j in *spec-providers* + with elts = nil + do (push j elts) + if (zerop (mod i 4)) + do (progn + (privmsg *connection* destination + (format nil "~{~{~*~S, ~A~}~^; ~}" + (nreverse elts))) + (setf elts nil))) ) (loop for type in *spec-providers* for actual-fun = (if (typep (first type) 'symbol)