You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
614 B
17 lines
614 B
;;;; XEP-0045: Multi-User Chat |
|
|
|
(in-package :sxcl) |
|
|
|
(defun send-muc-presence (comp to muc-jid user-nickname affiliation role &key stati user-jid) |
|
(with-presence (comp to :from (concatenate 'string muc-jid "/" user-nickname)) |
|
(cxml:with-element "x" |
|
(cxml:attribute "xmlns" +muc-user-ns+) |
|
(cxml:with-element "item" |
|
(when user-jid |
|
(cxml:attribute "jid" user-jid)) |
|
(cxml:attribute "affiliation" affiliation) |
|
(cxml:attribute "role" role)) |
|
(loop |
|
for status in stati |
|
do (cxml:with-element "status" |
|
(cxml:attribute "code" status))))))
|
|
|