Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory clnet:/tmp/cvs-serv20851
Modified Files:
cl-xmpp.lisp
Log Message:
Added status messages and priority to PRESENCE.
--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/05/12 17:45:49 1.27
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/08/28 21:17:08 1.28
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.27 2006/05/12 17:45:49 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.28 2006/08/28 21:17:08 jstecklina Exp $
;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -487,13 +487,22 @@
(add-auth-method :digest-md5 '%digest-md5-auth%)
-(defmethod presence ((connection connection) &key type to)
+(defmethod presence ((connection connection) &key type to status show priority)
(with-xml-output (connection)
(cxml:with-element "presence"
(when type
(cxml:attribute "type" type))
(when to
- (cxml:attribute "to" to)))))
+ (cxml:attribute "to" to))
+ (when status
+ (cxml:with-element "status"
+ (cxml:text status)))
+ (when show
+ (cxml:with-element "show"
+ (cxml:text show)))
+ (when priority
+ (cxml:with-element "priority"
+ (cxml:text (format nil "~A" priority)))))))
(defmethod message ((connection connection) to body &key id (type :chat))
(with-xml-output (connection)
