| | 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) |
projects / config.git / blame_incremental