Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv20742
Modified Files: cliki.lisp Log Message: Just in case commit
Date: Tue Dec 16 18:18:02 2003 Author: bmastenbrook
Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.7 net-nittin-irc/example/cliki.lisp:1.8 --- net-nittin-irc/example/cliki.lisp:1.7 Mon Dec 15 18:11:12 2003 +++ net-nittin-irc/example/cliki.lisp Tue Dec 16 18:18:01 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.7 2003/12/15 23:11:12 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.8 2003/12/16 23:18:01 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $
;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -133,7 +133,7 @@
(defparameter *cliki-attention-prefix* "minion: ")
-(defparameter *cliki-bot-help* "The minion bot supplies small definitions and performs lookups on CLiki. To use it, try ``minion: term?''. To add a term for IRC, try saying ``minion: add "term" as: definition''; otherwise, edit the corresponding CLiki page.") +(defparameter *cliki-bot-help* "The minion bot supplies small definitions and performs lookups on CLiki. To use it, try ``minion: term?''. To add a term for IRC, try saying ``minion: add "term" as: definition'' or ``minion: alias "term" as: term''; otherwise, edit the corresponding CLiki page.")
(defun cliki-lookup (term-with-question) (let ((first-pass (regex-replace-all "^(\s*)([^?]+)(\?*)$" term-with-question "\2")))