jabber.el + muc-vcard-get

Накропал небольшую функцию для jabber.el, чтобы можно было смотреть vcard участников конференций с автодополнением.

(defun agamestor/jabber-muc-vcard-get (jc group nickname)
  "Request vcard from chat with NICKNAME in GROUP."
  (interactive
   (jabber-muc-argument-list
    (list (jabber-muc-read-nickname jabber-group "Nickname: "))))
    (let ((muc-name (format "%s/%s" group nickname)))
        (jabber-vcard-get jc muc-name)))