[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-search.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305B\"\207" [require jabber-register add-to-list jabber-jid-service-menu "Search directory" jabber-get-search] 4)
#@96 Send IQ get request in namespace "jabber:iq:search".

JC is the Jabber connection.

(fn JC TO)\1f
(defalias 'jabber-get-search #[514 "\300\ 2\ 2\301\302\303\304\305\306&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:search"))) jabber-process-data jabber-process-register-or-search jabber-report-success "Search field retrieval"] 11 (#$ . 236) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "Search what database: "] 3)])
#@77 Submit search.  See `jabber-process-register-or-search'.

(fn &rest IGNORE)\1f
(defalias 'jabber-submit-search #[128 "\303\bP\304	\b\305\n\306\267\202\1e\0\307\310\311 BB\202\"\0\307\312\313 E\202\"\0\314\315\n\"\316\317\320\ 6\b&\b\266\ 2\321\322!\207" [jabber-submit-to jabber-buffer-connection jabber-form-type "Search at " jabber-send-iq "set" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 13 xdata 22)) query ((xmlns . "jabber:iq:search")) jabber-parse-register-form ((xmlns . "jabber:iq:search")) jabber-parse-xdata-form error "Unknown form type: %s" jabber-process-data jabber-process-search-result jabber-report-success message "Search sent"] 11 (#$ . 700)])
#@178 Receive and display search results.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA)\1f
(defalias 'jabber-process-search-result #[514 "\300\ 1!\301\211\211\211\302\ 5\303\"\211\2030\0\211@\211\304\ 1:\205\1c\0\305\ 2\ 2\"\266\202\306\230\203)\0\307\262\ 6\211\262\ 5\ 1A\266\202\202\v\0\210\ 3\2039\0\310\ 3!\207\311\312\313\314#\315\261\ 2\210\316\262\ 2\317\262\ 1\ 1\211\203j\0\211@\320\321\ 2A\322\"\317\"\210\311\321\ 2A\323\"\313\324#c\210\ 1A\266\202\202I\0\210\325c\210\302\ 5\326\"\211\205\341\0\211@`\301\ 5\211\203\312\0\211@\211A\ 1@\327=\203\235\0\ 5\327\ 1:\205\225\0\305\ 2\ 2\"\266\202\211\262\ 5\202\262\0\302\ 6\ 6\ 3@\"@\211AA\211\330\232?\205\257\0\211\266\202@\320\321\ 3\322\"\317\"\210\211\203\301\0\211c\210\266\ 2\ 1A\266\202\202{\0\210\211\203\326\0\331\ 2`\332\ 4$\210\315c\266\ 3\ 1A\266\202\202r\0\207" [jabber-iq-query nil jabber-xml-get-children x xmlns xml-get-attribute-or-nil "jabber:x:data" t jabber-render-xdata-search-results jabber-propertize "Search results" face jabber-title-medium "\n" ((first label "First name" column 0) (last label "Last name" column 15) (nick label "Nickname" column 30) (jid label "JID" column 45) (email label "E-mail" column 65)) 1 indent-to plist-get column label bold "\n\n" item jid (("")) put-text-property jabber-jid] 19 (#$ . 1407)])
(provide 'jabber-search)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\302\303\304\305B\"\207" [require jabber-register add-to-list jabber-jid-service-menu "Search directory" jabber-get-search] 4)
	9	#@96 Send IQ get request in namespace "jabber:iq:search".
	10
	11	JC is the Jabber connection.
	12
	13	(fn JC TO)\1f
	14	(defalias 'jabber-get-search #[514 "\300\ 2\ 2\301\302\303\304\305\306&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:search"))) jabber-process-data jabber-process-register-or-search jabber-report-success "Search field retrieval"] 11 (#$ . 236) (byte-code "\300 \301\302!D\207" [jabber-read-account jabber-read-jid-completing "Search what database: "] 3)])
	15	#@77 Submit search. See `jabber-process-register-or-search'.
	16
	17	(fn &rest IGNORE)\1f
	18	(defalias 'jabber-submit-search #[128 "\303\bP\304 \b\305\n\306\267\202\1e\0\307\310\311 BB\202\"\0\307\312\313 E\202\"\0\314\315\n\"\316\317\320\ 6\b&\b\266\ 2\321\322!\207" [jabber-submit-to jabber-buffer-connection jabber-form-type "Search at " jabber-send-iq "set" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (register 13 xdata 22)) query ((xmlns . "jabber:iq:search")) jabber-parse-register-form ((xmlns . "jabber:iq:search")) jabber-parse-xdata-form error "Unknown form type: %s" jabber-process-data jabber-process-search-result jabber-report-success message "Search sent"] 11 (#$ . 700)])
	19	#@178 Receive and display search results.
	20
	21	JC is the Jabber connection.
	22	XML-DATA is the parsed tree data from the stream (stanzas)
	23	obtained from `xml-parse-region'.
	24
	25	(fn JC XML-DATA)\1f
	26	(defalias 'jabber-process-search-result #[514 "\300\ 1!\301\211\211\211\302\ 5\303\"\211\2030\0\211@\211\304\ 1:\205\1c\0\305\ 2\ 2\"\266\202\306\230\203)\0\307\262\ 6\211\262\ 5\ 1A\266\202\202\v\0\210\ 3\2039\0\310\ 3!\207\311\312\313\314#\315\261\ 2\210\316\262\ 2\317\262\ 1\ 1\211\203j\0\211@\320\321\ 2A\322\"\317\"\210\311\321\ 2A\323\"\313\324#c\210\ 1A\266\202\202I\0\210\325c\210\302\ 5\326\"\211\205\341\0\211@`\301\ 5\211\203\312\0\211@\211A\ 1@\327=\203\235\0\ 5\327\ 1:\205\225\0\305\ 2\ 2\"\266\202\211\262\ 5\202\262\0\302\ 6\ 6\ 3@\"@\211AA\211\330\232?\205\257\0\211\266\202@\320\321\ 3\322\"\317\"\210\211\203\301\0\211c\210\266\ 2\ 1A\266\202\202{\0\210\211\203\326\0\331\ 2`\332\ 4$\210\315c\266\ 3\ 1A\266\202\202r\0\207" [jabber-iq-query nil jabber-xml-get-children x xmlns xml-get-attribute-or-nil "jabber:x:data" t jabber-render-xdata-search-results jabber-propertize "Search results" face jabber-title-medium "\n" ((first label "First name" column 0) (last label "Last name" column 15) (nick label "Nickname" column 30) (jid label "JID" column 45) (email label "E-mail" column 65)) 1 indent-to plist-get column label bold "\n\n" item jid (("")) put-text-property jabber-jid] 19 (#$ . 1407)])
	27	(provide 'jabber-search)