[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
Brian Mastenbrook
bmastenbrook at common-lisp.net
Tue Dec 16 23:18:02 UTC 2003
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")))
More information about the Net-nittin-irc-cvs
mailing list