wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-327 

Creator:  Magnus Henoch <mange@freemail.hu>

Multiaccountify jabber-search

Patch from Detlev Zundel.
This commit is contained in:
Magnus Henoch 2007-03-20 11:49:32 +00:00 committed by Kirill A. Korinskiy
parent aafdf5fb9a
commit 071c2cbbfd
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
AUTHORS
View File

@ -13,5 +13,6 @@ Carl Henrik Lunde
Andrey Slusar
Evgenii Terechkov
Milan Zamazal
Detlev Zundel
arch-tag: 15700144-3BD9-11D9-871C-000A95C2FCD0

19
jabber-search.el
View File

@ -23,10 +23,11 @@
(add-to-list 'jabber-jid-service-menu
(cons "Search directory" 'jabber-get-search))
(defun jabber-get-search (to)
(defun jabber-get-search (jc to)
"Send IQ get request in namespace \"jabber:iq:search\"."
(interactive (list (jabber-read-jid-completing "Search what database: ")))
(jabber-send-iq to
(interactive (list (jabber-read-account)
(jabber-read-jid-completing "Search what database: ")))
(jabber-send-iq jc to
"get"
'(query ((xmlns . "jabber:iq:search")))
#'jabber-process-data #'jabber-process-register-or-search
@ -41,9 +42,9 @@
;; search form is activated.
(defun jabber-submit-search (&rest ignore)
"Submit search. See `jabber-process-register-or-search'."
(let ((text (concat "Search at " jabber-submit-to)))
(jabber-send-iq jabber-submit-to
(jabber-send-iq jabber-buffer-connection jabber-submit-to
"set"
(cond
@ -60,7 +61,7 @@
(message "Search sent"))
(defun jabber-process-search-result (xml-data)
(defun jabber-process-search-result (jc xml-data)
"Receive and display search results."
;; This function assumes that all search results come in one packet,
@ -79,7 +80,7 @@
(jabber-render-xdata-search-results xdata)
(insert (jabber-propertize "Search results" 'face 'jabber-title-medium) "\n")
(setq fields '((first . (label "First name" column 0))
(last . (label "Last name" column 15))
(nick . (label "Nickname" column 30))
@ -99,12 +100,12 @@
(dolist (field-cons fields)
(let ((field-plist (cdr field-cons))
(value (if (eq (car field-cons) 'jid)
(value (if (eq (car field-cons) 'jid)
(setq jid (jabber-xml-get-attribute item 'jid))
(car (jabber-xml-node-children (car (jabber-xml-get-children item (car field-cons))))))))
(indent-to (plist-get field-plist 'column) 1)
(if value (insert value))))
(if jid
(put-text-property start-of-line (point)
'jabber-jid jid))