projects / config.git / blame
| 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 | (require 'cl-lib) | |
| 9 | (defvar jabber-export-roster-widget nil) | |
| 10 | (defvar jabber-import-subscription-p-widget nil) | |
| 11 | #@43 Export roster for connection JC. | |
| 12 | ||
| 13 | (fn JC)\1f | |
| 14 | (defalias 'jabber-export-roster #[257 "\300\ 1!\301\302\303\ 3\304\"!!\207" [fsm-get-state-data jabber-export-roster-do-it jabber-roster-to-sexp plist-get :roster] 7 (#$ . 192) (byte-code "\300 C\207" [jabber-read-account] 1)]) | |
| 15 | #@73 Create buffer from which ROSTER can be exported to a file. | |
| 16 | ||
| 17 | (fn ROSTER)\1f | |
| 18 | (defalias 'jabber-export-roster-do-it #[257 "r\300\301!q\210\302\303!\210\304\305\306\307\310#!\210\304\311!\210\312\313\314\315\316$\210\304\317!\210\312\313\314\320\321$\210\304\322!\210\323\324!\210\325\ 1!\210\326 \210\327\330!\210eb\210\331p!)\207" [get-buffer-create "Export roster" jabber-init-widget-buffer nil widget-insert jabber-propertize "Export roster\n" face jabber-title-large "You are about to save your roster to a file. Here\nyou can edit it before saving. Changes done here will\nnot affect your actual roster.\n\n" widget-create push-button :notify jabber-export-save "Save to file" " " jabber-export-remove-regexp "Remove by regexp" "\n\n" make-local-variable jabber-export-roster-widget jabber-export-display widget-setup widget-minor-mode 1 switch-to-buffer] 6 (#$ . 464) nil]) | |
| 19 | #@76 Create buffer for roster import for connection JC from FILE. | |
| 20 | ||
| 21 | (fn JC FILE)\1f | |
| 22 | (defalias 'jabber-import-roster #[514 "\303\304\305\"r\211q\210\306\307\ 2\"\216\310\18\311\312\ 3!@!+\262\ 1r\313\314!q\210\ 2\11\315\316!\210\317\320\321\322\323#!\210\317\324!\210\325\302!\210\326\327!\12\317\330!\210\326\331\332\333\334$\210\317\335!\210\326\331\332\336\337$\210\317\340!\210\325\341!\210\342\ 1!\210\343 \210\344\345!\210eb\210\346p!)\207" [coding-system-for-read jabber-buffer-connection jabber-import-subscription-p-widget generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \0\302\300!\207" [V0 buffer-name kill-buffer] 2] utf-8 jabber-roster-xml-to-sexp xml-parse-file get-buffer-create "Import roster" jabber-init-widget-buffer nil widget-insert jabber-propertize "Import roster\n" face jabber-title-large "You are about to import the contacts below to your roster.\n\n" make-local-variable widget-create checkbox " Adjust subscriptions\n" push-button :notify jabber-import-doit "Import to roster" " " jabber-export-remove-regexp "Remove by regexp" "\n\n" jabber-export-roster-widget jabber-export-display widget-setup widget-minor-mode 1 switch-to-buffer] 8 (#$ . 1344) (byte-code "\300 \301\302!D\207" [jabber-read-account read-file-name "Import roster from file: "] 3)]) | |
| 23 | #@21 | |
| 24 | ||
| 25 | (fn &rest IGNORE)\1f | |
| 26 | (defalias 'jabber-export-remove-regexp #[128 "\301\b!\211G\302\303!\304\305\306\ 3\"\ 4\"\262\ 3\307\b\ 4\"\210\310 \210\311\312\ 3\ 5GZ\"\207" [jabber-export-roster-widget widget-value read-string "Remove JIDs matching regexp: " cl-delete-if make-closure #[257 "\301\300\ 2@\"\207" [V0 string-match] 4 "\n\n(fn A)"] widget-value-set widget-setup message "%d items removed"] 8 (#$ . 2621)]) | |
| 27 | #@43 Export roster to file. | |
| 28 | ||
| 29 | (fn &rest IGNORE)\1f | |
| 30 | (defalias 'jabber-export-save #[128 "\302\303\304\b!\"\305\19\306\307!\310\311\312\"\313\314\ 2\"\216r\211q\210\315c\210\ 2\211\2030\0\211@\316\ 1!\317\261\ 2\210\ 1A\266\202\202\1c\0\210\320c\210)r\211q\210\321\322\211\ 4\322\323%\210*\266\ 2\324\325!)\207" [jabber-export-roster-widget coding-system-for-write mapcar jabber-roster-sexp-to-xml widget-value utf-8 read-file-name "Export roster to file: " generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \0\302\300!\207" [V0 buffer-name kill-buffer] 2] "<iq xmlns='jabber:client'><query xmlns='jabber:iq:roster'>\n" jabber-sexp2xml "\n" "</query></iq>\n" write-region nil 0 message "Roster saved"] 10 (#$ . 3022)]) | |
| 31 | #@58 Import roster being edited in widget. | |
| 32 | ||
| 33 | (fn &rest IGNORE)\1f | |
| 34 | (defalias 'jabber-import-doit #[128 "\303\b!\304\ 1\305\"\306\307 !\211\203\330\0\211@\211@\ 1A@G\310U?\205 \0\ 1A@\311\ 38\312\ 48\313\ 4!\211\ 6 >\211\2054\0\ 1\314N\ 1\205;\0\ 2\315N\ 2\205B\0\ 3\316N\ 3\203i\0\ 6\a\203O\0\ 2\203i\0\ 6\a\203_\0\ 2\203_\0\ 6\a\ 3\230\203i\0\317\ 6\ 6\ 2\320\321$\203\203\0\322\ 6 \ 6 \206r\0\ 4\306\323\ 6\n\ 6\ 6\320\321$F\324\"\ 6\fB\262\f\307\n!\203\317\0\ 6\ 6\325\235\ 6\a\326\235\ 3\327\235\ 4\330\235\331\ 4\203\251\0\ 2\204\251\0\211\ 6\ e\332\"\210\202\267\0\ 2\203\267\0\ 4\204\267\0\211\ 6\ e\333\"\210\ 3\203\277\0\ 1\203\315\0\ 1\203\315\0\ 3\204\315\0\211\ 6\ e\334\"\210\266\ 5\266 \ 1A\266\202\202\v\0\210\211\205\355\0\335\b\306\336\337\340\ 6\ 6BB\341\342\341\342&\b\207" [jabber-buffer-connection jabber-export-roster-widget jabber-import-subscription-p-widget fsm-get-state-data plist-get :roster nil widget-value 0 2 3 jabber-jid-symbol name subscription groups cl-set-difference :test string= jabber-roster-sexp-to-xml cl-union t ("to" "both") ("from" "both") ("to" "both") ("from" "both") #[514 "\301\b\302\303\ 5B\304\ 5BDD\"\207" [jabber-buffer-connection jabber-send-sexp presence to type] 8 "\n\n(fn JID TYPE)"] "subscribe" "unsubscribe" "unsubscribed" jabber-send-iq "set" query ((xmlns . "jabber:iq:roster")) jabber-report-success "Roster import"] 24 (#$ . 3733)]) | |
| 35 | #@163 Convert ROSTER to simpler sexp format. | |
| 36 | Return a list, where each item is a vector: | |
| 37 | [jid name subscription groups] | |
| 38 | where groups is a list of strings. | |
| 39 | ||
| 40 | (fn ROSTER)\1f | |
| 41 | (defalias 'jabber-roster-to-sexp #[257 "\300\301\ 2\"\207" [mapcar #[257 "\300\ 1!\ 1\301N\206\n\0\302\ 2\303N\ 3\304NF\207" [symbol-name name "" subscription groups] 6 "\n\n(fn N)"]] 4 (#$ . 4985)]) | |
| 42 | #@88 Convert SEXP to XML format. | |
| 43 | Return an XML node. | |
| 44 | ||
| 45 | (fn SEXP &optional OMIT-SUBSCRIPTION)\1f | |
| 46 | (defalias 'jabber-roster-sexp-to-xml #[513 "\300\301\ 3@B\302\ 4A@\211G\303U?\205\15\0\304\ 1BC\262\ 1\ 4?\205#\0\305\306\ 6\a8BC\"B\307\310\311\ 6\ 68\"BB\207" [item jid append 0 name subscription 2 mapcar #[257 "\300\301\ 2E\207" [group nil] 4 "\n\n(fn G)"] 3] 9 (#$ . 5342)]) | |
| 47 | #@191 Convert XML-DATA to simpler sexp format. | |
| 48 | XML-DATA is an <iq> node with a <query xmlns='jabber:iq:roster'> child. | |
| 49 | See `jabber-roster-to-sexp' for description of output format. | |
| 50 | ||
| 51 | (fn XML-DATA)\1f | |
| 52 | (defalias 'jabber-roster-xml-to-sexp #[257 "\211\211<\205\b\0\211@\262\ 1\300=\204\13\0\301\302!\210\303\ 1\304\"@\211\204 \0\301\304!\210\305\306\303\ 3\307\"\"\207" [iq cl--assertion-failed (eq (jabber-xml-node-name xml-data) 'iq) jabber-xml-get-children query mapcar #[257 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\ 1\302\ 1:\205\18\0\301\ 2\ 2\"\266\202\206\1e\0\303\ 2\304\ 1:\205)\0\301\ 2\ 2\"\266\202\305\306\307\ 6\ 6\310\"\"F\207" [jid xml-get-attribute-or-nil name #1="" subscription mapcar #[257 "\211\211AA\211\300\232?\205\f\0\211\266\202@\207" [((#1#))] 5 "\n\n(fn G)"] jabber-xml-get-children group] 9 "\n\n(fn N)"] item] 7 (#$ . 5692)]) | |
| 53 | #@15 | |
| 54 | ||
| 55 | (fn ROSTER)\1f | |
| 56 | (defalias 'jabber-export-display #[257 "\301\302\303\ 3#\211\10\207" [jabber-export-roster-widget widget-create (repeat :tag "Roster" (list :format "%v" (string :tag "JID") (string :tag "Name") (choice :tag "Subscription" (const "none") (const "both") (const "to") (const "from")) (repeat :tag "Groups" (string :tag "Group")))) :value] 5 (#$ . 6494)]) | |
| 57 | (provide 'jabber-export) |