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!\210\305\306\307\310\311DD\312\313\314\315\316&\a\210\305\317\307\310\320DD\321\313\322\315\316&\a\210\305\323\307\310\324DD\325\313\326\315\316&\a\207" [require jabber-keymap jabber-util ewoc sgml-mode custom-declare-variable jabber-debug-log-xml funcall function #[0 "\300\207" [nil] 1 #1=""] "Set to non-nil to log all XML i/o in *-jabber-console-JID-* buffer.\nSet to string to also dump XML i/o in specified file." :type (choice (const :tag "Do not dump XML i/o" nil) (const :tag "Dump XML i/o in console" t) (string :tag "Dump XML i/o in console and this file")) :group jabber-debug jabber-console-name-format #[0 "\300\207" ["*-jabber-console-%s-*"] 1 #1#] "Format for console buffer name. %s mean connection jid." string jabber-console-truncate-lines #[0 "\300\207" [3000] 1 #1#] "Maximum number of lines in console buffer.\nNot truncate if set to 0." integer] 8) | |
| 9 | #@51 Position where the message being composed starts.\1f | |
| 10 | (defvar jabber-point-insert nil (#$ . 1014)) | |
| 11 | #@52 Function for sending a message from a chat buffer.\1f | |
| 12 | (defvar jabber-send-function nil (#$ . 1115)) | |
| 13 | #@149 Hook called at the end of `jabber-console-mode'. | |
| 14 | Note that functions in this hook have no way of knowing | |
| 15 | what kind of chat buffer is being created.\1f | |
| 16 | (defvar jabber-console-mode-hook nil (#$ . 1219)) | |
| 17 | #@58 The ewoc showing the XML elements of this stream buffer.\1f | |
| 18 | (defvar jabber-console-ewoc nil (#$ . 1423)) | |
| 19 | (defvar jabber-console-mode-map (byte-code "\301 \302\ 1\b\"\210\303\ 1\304\305#\210\207" [jabber-common-keymap make-sparse-keymap set-keymap-parent define-key "\r" jabber-chat-buffer-send] 5)) | |
| 20 | #@11 | |
| 21 | ||
| 22 | (fn JC)\1f | |
| 23 | (defalias 'jabber-console-create-buffer #[257 "r\303\304\b\305\ 4!\"!q\210 \306=\204\14\0\306 \210\211\12p)\207" [jabber-console-name-format major-mode jabber-buffer-connection get-buffer-create format jabber-connection-bare-jid jabber-console-mode] 6 (#$ . 1719)]) | |
| 24 | #@16 | |
| 25 | ||
| 26 | (fn JC DATA)\1f | |
| 27 | (defalias 'jabber-console-send #[514 "\300\ 2\301\ 3#\210\302\ 2\ 2\"\207" [jabber-process-console "raw" jabber-send-string] 6 (#$ . 1993)]) | |
| 28 | #@47 Insert comment into console buffer. | |
| 29 | ||
| 30 | (fn STR)\1f | |
| 31 | (defalias 'jabber-console-comment #[257 "\b\ 1\303\304\305 !\306 \307\260\a\n;\203\16\0\310\ 1\n\"\210\211c\207" [comment-start comment-end jabber-debug-log-xml "@" jabber-encode-time current-time ":" "\n" jabber-append-string-to-file] 8 (#$ . 2147)]) | |
| 32 | #@54 Pretty Printer for XML-sexp and raw data. | |
| 33 | ||
| 34 | (fn DATA)\1f | |
| 35 | (defalias 'jabber-console-pp #[257 "\211@\ 1A\ 2A@\301\ 3!\210\211;\203\1d\0\211c\210\b;\205,\0\302\ 1\b\"\207\303\ 2!\210\b;\205,\0\302\304\b\303\ 5$\207" [jabber-debug-log-xml jabber-console-comment jabber-append-string-to-file xml-print "\n"] 9 (#$ . 2442)]) | |
| 36 | (defvar jabber-console-mode-hook nil) | |
| 37 | (byte-code "\300\301N\204\f\0\302\300\301\303#\210\304\305!\204\18\0\302\305\306\307#\210\300\207" [jabber-console-mode-hook variable-documentation put "Hook run after entering Jabber Console mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp jabber-console-mode-map definition-name jabber-console-mode] 4) | |
| 38 | (defvar jabber-console-mode-map (make-sparse-keymap)) | |
| 39 | (byte-code "\301\302N\204\ e\0\303\301\302\304\305!#\210\306\307!\204\1f\0\303\307\310\311#\210\312\313 !\210\307\302N\204-\0\303\307\302\304\314!#\210\306\300!\204B\0\303\300\310\311#\210\315\316\300\317\"\210\b!\210\300\302N\204P\0\303\300\302\304\320!#\210\303\311\321\322#\207" [jabber-console-mode-abbrev-table jabber-console-mode-map variable-documentation put purecopy "Keymap for `jabber-console-mode'." boundp jabber-console-mode-syntax-table definition-name jabber-console-mode (lambda (#1=#:def-tmp-var) (defvar jabber-console-mode-syntax-table #1#)) make-syntax-table "Syntax table for `jabber-console-mode'." (lambda (#1#) (defvar jabber-console-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `jabber-console-mode'." derived-mode-parent sgml-mode] 5) | |
| 40 | #@243 Major mode for debug XMPP protocol. | |
| 41 | ||
| 42 | In addition to any hooks its parent mode `sgml-mode' might have run, | |
| 43 | this mode runs the hook `jabber-console-mode-hook', as the final or | |
| 44 | penultimate step during initialization. | |
| 45 | ||
| 46 | \{jabber-console-mode-map}\1f | |
| 47 | (defalias 'jabber-console-mode #[0 "\306\300!\210\307\18\310 \210\311\11\312\12\310\313N\203\e\0\314\311\313\310\313N#\210\315\v!\204'\0\316\v\317 \"\210\320\f!\211\2035\0\211\321 =\203;\0\322\f\323 \"\210\210\324\r\325\"\204R\0\r\ e(=\204R\0\326\r\325\ e(C#\210\327\v!\210\330\f!\210\r\16(\306\331!\210\306\332!\210\306\333!\210\334\16\19\ e\e\204\230\0\335\336\337\340#\16\edb\210\341e`\342\307$\210\307\1e)\341e`\343\307$\210\341e`\344\307$\210)\345 \16\1a)\346\347!\207" [delay-mode-hooks major-mode mode-name jabber-console-mode-map jabber-console-mode-syntax-table jabber-console-mode-abbrev-table make-local-variable t sgml-mode jabber-console-mode "Jabber Console" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table jabber-send-function jabber-point-insert jabber-console-ewoc jabber-console-send ewoc-create jabber-console-pp nil "<!-- + -->" put-text-property read-only front-sticky rear-nonsticky point-marker run-mode-hooks jabber-console-mode-hook local-abbrev-table inhibit-read-only] 5 (#$ . 4001) nil]) | |
| 48 | (put 'jabber-console-mode 'mode-class 'special) | |
| 49 | #@64 Sanitize XML-DATA for `jabber-process-console'. | |
| 50 | ||
| 51 | (fn XML-DATA)\1f | |
| 52 | (defalias 'jabber-console-sanitize #[257 "\211<\203\n\0\300\301\ 2\"\207\207" [jabber-tree-map #[257 "\211\247\203\n\0\300\301\ 2\"\207\207" [format "%s"] 4 "\n\n(fn X)"]] 4 (#$ . 5436)]) | |
| 53 | #@89 Log XML-DATA i/o as XML in "*-jabber-console-JID-*" buffer. | |
| 54 | ||
| 55 | (fn JC DIRECTION XML-DATA)\1f | |
| 56 | (defalias 'jabber-process-console #[771 "\302\303\ 4!!r\211q\210\304\b\ 4\305\ 5!D\"\210\306 W\205!\0 \210\307\310\ 2\b\"\262\ 1)\207" [jabber-console-ewoc jabber-console-truncate-lines get-buffer-create jabber-console-create-buffer ewoc-enter-last jabber-console-sanitize 1 nil jabber-truncate-top] 9 (#$ . 5687)]) | |
| 57 | (provide 'jabber-console) |