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 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require widget wid-edit jabber-util jabber-disco] 2) | |
| 9 | #@34 Alist of widgets currently used.\1f | |
| 10 | (defvar jabber-widget-alist nil (#$ . 204)) | |
| 11 | #@109 Type of form. | |
| 12 | One of: | |
| 13 | 'x-data, jabber:x:data | |
| 14 | 'register, as used in jabber:iq:register and jabber:iq:search.\1f | |
| 15 | (defvar jabber-form-type nil (#$ . 288)) | |
| 16 | #@53 JID of the entity to which form data is to be sent.\1f | |
| 17 | (defvar jabber-submit-to nil (#$ . 443)) | |
| 18 | (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [jabber-disco-advertise-feature "jabber:x:data" define-widget jid string "JID widget." :value-to-internal #[514 "\300\ 1!\211\203\r\0\301\302\ 2\ 4#\207\ 1\207" [jabber-jid-rostername format "%s <%s>"] 7 "\n\n(fn WIDGET VALUE)"] :value-to-external #[514 "\300\301\ 2\"\203\f\0\302\303\ 2\"\207\207" [string-match "<\\([^>]+\\)>[ ]*$" match-string 1] 5 "\n\n(fn WIDGET VALUE)"] :complete-function jid-complete] 10) | |
| 19 | #@44 Perform completion on JID preceding point.\1f | |
| 20 | (defalias 'jid-complete #[0 "\306\307\b!`\"\310\311\312 \"\313\314\311\315 \"\"\"\316\ 2\ 2\"\211\317\267\202&\0\320\321!\207\322\323\ 4\"\207\ 2\ 1\230\2044\0\324\ 1\ 4G\314O!\207\320\325!\210\nr\326\327!q\210p\330 \210\ 1\12\314\211\13\14\331\211\15\331\1e!\1e\"\332 \210\333\334!\210+\211\1e#\335\336\ 6\ 6\ 6\ 6\314#!\210\337\ 1!\210)\266\ 2\320\340!\207" [widget *jabber-roster* default-directory buffer-read-only buffer-file-name buffer-undo-list buffer-substring-no-properties widget-field-start append mapcar symbol-name delq nil #[257 "\300\ 1!\205\ f\0\301\302\300\ 3!\303\ 4!#\207" [jabber-jid-rostername format "%s <%s>" symbol-name] 6 "\n\n(fn ITEM)"] try-completion #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 29 nil 33)) message "Exact match." error "Can't find completion for \"%s\"" insert-and-inherit "Making completion list..." get-buffer-create "*Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list all-completions internal-temp-output-buffer-show "Making completion list...done" inhibit-modification-hooks inhibit-read-only standard-output] 11 (#$ . 1015) nil]) | |
| 21 | #@59 Setup buffer-local variables for widgets. | |
| 22 | ||
| 23 | (fn SUBMIT-TO)\1f | |
| 24 | (defalias 'jabber-init-widget-buffer #[257 "\303\300!\210\303\301!\210\304\10\211\11\304\12\305 \207" [jabber-widget-alist jabber-submit-to buffer-read-only make-local-variable nil rename-uniquely] 3 (#$ . 2196)]) | |
| 25 | #@256 Display widgets from <query/> element in IQ register or search namespace. | |
| 26 | Display widgets from <query/> element in jabber:iq:{register,search} namespace. | |
| 27 | DEFAULT-USERNAME is the default value for the username field. | |
| 28 | ||
| 29 | (fn QUERY &optional DEFAULT-USERNAME)\1f | |
| 30 | (defalias 'jabber-render-register-form #[513 "\302\300!\210\303\10\302\301!\210\304\11\305\ 2\306\"\203+\0\307\310\305\ 4\306\"@\211AA\211\311\232?\205%\0\211\266\202@\312#\210\305\ 2\313\"\2036\0\307\314!\210\307\312!\210\315\ 2\211AA\211\311\232?\205G\0\211\266\202\211\205\254\0\211@\211\211<\205W\0\211@\262\ 1\ 3\236\211\203\244\0\307\ 1A\316\"\210\ 1\211<\205m\0\211@\262\ 1\317=\203x\0\ 4\206y\0\320\ 1@\321\322\323\ 5@\324=\205\206\0\325\ 6\a\211AA\211\311\232?\205\223\0\211\266\202@\206\232\0\ 5$B\bB\10\210\307\312!\210\210\ 1A\266\202\202I\0\207" [jabber-widget-alist jabber-form-type make-local-variable nil register jabber-xml-get-children instructions widget-insert "Instructions: " ((#1="")) "\n" registered "You are already registered. You can change your details here.\n" ((username . "Username") (nick . "Nickname") (password . "Password") (name . "Full name") (first . "First name") (last . "Last name") (email . "E-mail") (address . "Address") (city . "City") (state . "State") (zip . "Zip") (phone . "Telephone") (url . "Web page") (date . "Birth date")) " " username #1# widget-create editable-field :secret password 42] 16 (#$ . 2469)]) | |
| 31 | #@170 Return children of a <query/> tag containing information entered. | |
| 32 | Return children of a <query/> tag containing information entered in the | |
| 33 | widgets of the current buffer.\1f | |
| 34 | (defalias 'jabber-parse-register-form #[0 "\301\302\b\"\207" [jabber-widget-alist mapcar #[257 "\211@\300\301\ 3A!E\207" [nil widget-value] 5 "\n\n(fn WIDGET-CONS)"]] 3 (#$ . 3841)]) | |
| 35 | #@220 Display widgets from <x/> element in jabber:x:data namespace. | |
| 36 | DEFAULTS is an alist associating variable names with default values. | |
| 37 | DEFAULTS takes precedence over values specified in the form. | |
| 38 | ||
| 39 | (fn X &optional DEFAULTS)\1f | |
| 40 | (defalias 'jabber-render-xdata-form #[513 "\302\300!\210\303\10\302\301!\210\304\11\305\ 2\306\"@\211AA\211\307\232?\205\1c\0\211\266\202@\211;\203-\0\310\311\ 2\312\313#\314\"\210\210\305\ 2\315\"@\211AA\211\307\232?\205>\0\211\266\202@\211;\203L\0\310\316\ 2\314#\210\210\305\ 2\317\"\211\205\362\ 1\211@\211\320\ 1:\205b\0\321\ 2\ 2\"\266\202\ 1\322\ 1:\205o\0\321\ 2\ 2\"\266\202\ 2\323\ 1:\205|\0\321\ 2\ 2\"\266\202\305\ 4\324\"\210\303\305\ 5\325\"\305\ 6\ 6\326\"\305\ 6\a\327\"@\330\ 6\a\ 6\v\"\ 5\331\230\203\265\0\310\ 4@\211AA\211\307\232?\205\255\0\211\266\202@!\210\202\275\ 1\ 5\332\230\203\356\0\ 6\ 6\204\305\0\ 6\a\203\320\0\310\ 6\a\206\315\0\ 6\b\333\"\210\ 6\a\ 6\ 6B\334\335\ 3A\206\346\0\336\337\ 6\b\340#\206\346\0\341\"B\bB\10\202\275\ 1\ 5\342\230\203-\ 1\ 6\ 6\204\376\0\ 6\a\203 \ 1\310\ 6\a\206\ 6\ 1\ 6\b\333\"\210\ 6\a\ 6\ 6B\343\334\344\345\ 5A\206 \ 1\ 6\b@\211AA\262\ 1@\346\347\ 6\n\"%B\bB\10\202\275\ 1\ 5\350\230\203y\ 1\ 6\a\ 6\ 6B\334\351\352\ 6\n\206B\ 1\ 6\v\345\ 6\ 6\203N\ 1\ 6\ 6A\202[\ 1\ 6 @\211AA\262\ 1@\353\235??%B\bB\10\ 6\ 6\204j\ 1\ 6\a\203\275\ 1\310\354\ 6\b\206s\ 1\ 6 \340#\210\202\275\ 1\ 6\ 6\204\203\ 1\ 6\a\203\216\ 1\310\ 6\a\206\213\ 1\ 6\b\355\"\210\ 6\a\ 6\ 6B\334\356\357\ 6 \360\230\205\236\ 1\361\ 5A\206\270\ 1\ 6\b@\211AA\211\307\232?\205\261\ 1\211\266\202@\206\270\ 1\341$B\bB\10\ 1\203\346\ 1\ 1\211AA\211\307\232?\205\315\ 1\211\266\202@\203\346\ 1\310\340\ 3\211AA\211\307\232?\205\341\ 1\211\266\202@\"\210\310\340!\266 \ 1A\266\202\202Q\0\207" [jabber-widget-alist jabber-form-type make-local-variable nil xdata jabber-xml-get-children title #1=((#2="")) widget-insert jabber-propertize face jabber-title-medium "\n\n" instructions "Instructions: " field var xml-get-attribute-or-nil label type required value option desc assoc "fixed" "text-multi" ":\n" widget-create text mapconcat #[257 "\211\211AA\211\300\232?\205\f\0\211\266\202@\207" [#1#] 5 "\n\n(fn VAL)"] "\n" #2# "list-single" apply radio-button-choice :value mapcar #[257 "\300\301\ 2\302\ 1:\205\r\0\303\ 2\ 2\"\266\202\304\305\ 5\306\"@\211AA\211\307\232?\205 \0\211\266\202@\257\ 5\207" [item :tag label xml-get-attribute-or-nil :value jabber-xml-get-children value #1#] 9 "\n\n(fn OPTION)"] "boolean" checkbox :tag ("1" "true") " " ": " editable-field :secret "text-private" 42] 21 (#$ . 4197)]) | |
| 41 | #@155 Return an <x/> tag containing information entered in the widgets. | |
| 42 | Return an <x/> tag containing information entered in the widgets of the current | |
| 43 | buffer.\1f | |
| 44 | (defalias 'jabber-parse-xdata-form #[0 "\301\302\303\304\b\"BB\207" [jabber-widget-alist x ((xmlns . "jabber:x:data") (type . "submit")) mapcar #[257 "\300\301\ 2A!\ 2@A\"\211\205\1a\0\302\303\ 3@@BC\304\305\ 4\"BB\207" [jabber-xdata-value-convert widget-value field var mapcar #[257 "\300\301\ 2E\207" [value nil] 4 "\n\n(fn VALUE)"]] 7 "\n\n(fn WIDGET-CONS)"]] 5 (#$ . 6470)]) | |
| 45 | #@178 Convert VALUE from form used by widget library to form required by XEP-0004. | |
| 46 | Return a list of strings, each of which to be included as cdata in a | |
| 47 | <value/> tag. | |
| 48 | ||
| 49 | (fn VALUE TYPE)\1f | |
| 50 | (defalias 'jabber-xdata-value-convert #[514 "\211\300\230\203\10\0\ 1\203\r\0\301C\207\302C\207\211\303\230\203\e\0\304\ 2\305\"\207\ 1G\306U?\205%\0\ 1C\207" ["boolean" "1" "0" "text-multi" split-string "[\n\r]" 0] 5 (#$ . 6996)]) | |
| 51 | #@51 Render search results in x:data form. | |
| 52 | ||
| 53 | (fn XDATA)\1f | |
| 54 | (defalias 'jabber-render-xdata-search-results #[257 "\300\ 1\301\"@\211\203 \0\302\ 1\211AA\211\303\232?\205\16\0\211\266\202@\304\305#\306\261\ 2\210\210\300\ 1\307\"\203,\0\310\ 1!\207\311\ 1!\207" [jabber-xml-get-children title jabber-propertize (("")) face jabber-title-medium "\n" reported jabber-render-xdata-search-results-multi jabber-render-xdata-search-results-single] 7 (#$ . 7394)]) | |
| 55 | #@49 Render multi-record search results. | |
| 56 | ||
| 57 | (fn XDATA)\1f | |
| 58 | (defalias 'jabber-render-xdata-search-results-multi #[257 "\300\301\302\ 3\303\"@\301\302\ 2\304\"\211\203p\0\211@\300\305\262\ 1\306\ 6\a\ 3\307\ 1:\205$\0\310\ 2\ 2\"\266\202\311\ 5\311\ 1:\2052\0\310\ 2\ 2\"\266\202\312\ 6\a\312\ 1:\205A\0\310\ 2\ 2\"\266\202\313\ 6\v\257\ 6BC\"\262\a\ 3\ 1\\\262\ 4\ 1\312\ 1:\205]\0\310\ 2\ 2\"\266\202\314\230\203h\0\ 5T\262\ 6\210\ 1A\266\202\202\f\0\266\ 3\ 1\211\203\224\0\211@\315\316\ 2A\313\"\317\"\210\320\316\ 2A\311\"\321\322#c\210\ 1A\266\202\202s\0\210\323c\210\302\ 3\324\"\211\205'\ 1\211@`\300\302\ 3\304\"\211\203\10\ 1\211@\325\ 1\307\ 1:\205\272\0\310\ 2\ 2\"\266\202\ 6 \"A\302\ 2\326\"@\211AA\211\327\232?\205\320\0\211\266\202@\315\316\ 3\313\"\317\"\210\211\203\a\ 1\316\ 2\312\"\314\230\203\ 4\ 1\ 6\b\317=\204\372\0\320\ 1\330\ 3#c\266\ 3\202 \ 1\211\262\ 5\211c\266\ 3\202 \ 1\211c\210\266\ 2\ 1A\266\202\202\250\0\210\211\203\1c\ 1\331\ 2`\330\ 4$\210\332c\266\ 3\ 1A\266\202\202\234\0\207" [nil 0 jabber-xml-get-children reported field 20 append var xml-get-attribute-or-nil label type column "jid-single" indent-to plist-get 1 jabber-propertize face bold "\n\n" item assoc value (("")) jabber-jid put-text-property "\n"] 19 (#$ . 7828)]) | |
| 59 | #@50 Render single-record search results. | |
| 60 | ||
| 61 | (fn XDATA)\1f | |
| 62 | (defalias 'jabber-render-xdata-search-results-single #[257 "\300\ 1\301\"\211\205H\0\211@\211\302\ 1:\205\15\0\303\ 2\ 2\"\266\202\ 1\304\ 1:\205\"\0\303\ 2\ 2\"\266\ 3\305\306\307\300\ 5\310\"\"\311\ 3\312P\313\314#c\210\315j\210\316\317\ 2\"\320\261\ 2\266\ 4\ 1A\266\202\202\ 4\0\207" [jabber-xml-get-children field label xml-get-attribute-or-nil type nil mapcar #[257 "\211\211AA\211\300\232?\205\f\0\211\266\202@\207" [((""))] 5 "\n\n(fn VAL)"] value jabber-propertize ": " face bold 30 apply concat "\n"] 10 (#$ . 8937)]) | |
| 63 | #@108 Return the form type of the xdata form in X, by XEP-0068. | |
| 64 | Return nil if no form type is specified. | |
| 65 | ||
| 66 | (fn X)\1f | |
| 67 | (defalias 'jabber-xdata-formtype #[257 "\3002S\0\301\ 1\302\"\211\205P\0\211@\211\303\ 1:\205\19\0\304\ 2\ 2\"\266\202\305\230\203I\0\211\306\ 1:\205+\0\304\ 2\ 2\"\266\202\307\230\203I\0\310\300\301\ 3\311\"@\211AA\211\312\232?\205D\0\211\266\202@\"\210\ 1A\266\202\202\b\0\262\ 10\207" [found-formtype jabber-xml-get-children field var xml-get-attribute-or-nil "FORM_TYPE" type "hidden" throw value ((""))] 9 (#$ . 9482)]) | |
| 68 | (provide 'jabber-widget) |