Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv29843 Modified Files: index.html Log Message: Date: Mon Oct 31 18:02:21 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.11 public_html/index.html:1.12 --- public_html/index.html:1.11 Sat Oct 29 19:30:15 2005 +++ public_html/index.html Mon Oct 31 18:02:20 2005 @@ -119,6 +119,13 @@ ;; specify an xmpp:handle method for the objects you are interested in ;; or (defmethod xmpp:handle (object) ...) to get them all. Or alternatively ;; specify :dom-repr t to receive-stanza-loop to get DOM-ish objects. + +;; For example, if you wanted to create an annoying reply bot: + + * (defmethod xmpp:handle ((connection xmpp:connection) (message xmpp:message)) + (xmpp:message connection (xmpp:from message) + (format nil "reply to: ~a~%" (xmpp:message object)))) + </pre> </div>