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\300\305!\210\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323\312\307&\a\210\314\324\316\317\325DD\326\322\327\312\307&\a\210\314\330\316\317\331DD\332\322\333\312\307&\a\210\314\334\316\317\335DD\336\322\323\312\307&\a\210\314\337\316\317\340DD\341\322\323\312\307&\a\210\314\342\316\317\343DD\344\322\333\312\307&\a\210\314\345\316\317\346DD\347\322\323\312\307&\a\210\350\351\352\353\312\307%\210\314\354\316\317\355DD\356\322\323\312\307&\a\210\314\357\316\317\360DD\361\322\323\312\307&\a\210\314\362\316\317\363DD\364\322\323\312\307&\a\210\350\365\366\367\312\307%\210\350\370\371\372\312\307%\210\350\373\374\375\312\307%\210\350\376\377\201@\0\312\307%\210\350\201A\0\201B\0\201C\0\312\307%\210\350\201D\0\201E\0\201F\0\312\307%\207" [require jabber-core jabber-chatbuffer jabber-history jabber-menu ewoc custom-declare-group jabber-chat nil "chat display options" :group jabber custom-declare-variable jabber-chat-buffer-format funcall function #[0 "\300\207" ["*-jabber-chat-%n-*"] 1 #1=""] "The format specification for the name of chat buffers.\n\nThese fields are available (all are about the person you are chatting\nwith):\n\n%n Nickname, or JID if no nickname set\n%j Bare JID (without resource)\n%r Resource" :type string jabber-chat-header-line-format #[0 "\300\207" [(#1# (jabber-chat-buffer-show-avatar (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with))) (jabber-propertize " " 'display (get buddy 'avatar))))) (:eval (jabber-jid-displayname jabber-chatting-with)) " " (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with))) (propertize (or (cdr (assoc (get buddy 'show) jabber-presence-strings)) (get buddy 'show)) 'face (or (cdr (assoc (get buddy 'show) jabber-presence-faces)) 'jabber-roster-user-online)))) " " (:eval (jabber-fix-status (get (jabber-jid-symbol jabber-chatting-with) 'status))) " " jabber-events-message " " jabber-chatstates-message)] 1 #1#] "The specification for the header line of chat buffers.\n\nThe format is that of `mode-line-format' and `header-line-format'." sexp jabber-chat-buffer-show-avatar #[0 "\300\207" [t] 1 #1#] "Show avatars in header line of chat buffer?\nThis variable might not take effect if you have changed\n`jabber-chat-header-line-format'." boolean jabber-chat-time-format #[0 "\300\207" ["%H:%M"] 1 #1#] "The format specification for instant messages in the chat buffer.\nSee also `jabber-chat-delayed-time-format'.\n\nSee `format-time-string' for valid values." jabber-chat-delayed-time-format #[0 "\300\207" ["%Y-%m-%d %H:%M"] 1 #1#] "The format specification for delayed messages in the chat buffer.\nSee also `jabber-chat-time-format'.\n\nSee `format-time-string' for valid values." jabber-print-rare-time #[0 "\300\207" [t] 1 #1#] "Non-nil means to print \"rare time\" indications in chat buffers.\nThe default settings tell every new hour." jabber-rare-time-format #[0 "\300\207" ["%a %e %b %Y %H:00"] 1 #1#] "The format specification for the rare time information.\nRare time information will be printed whenever the current time,\nformatted according to this string, is different to the last\nrare time printed." custom-declare-face jabber-rare-time-face ((t (:foreground "darkgreen" :underline t))) "face for displaying the rare time info" jabber-chat-local-prompt-format #[0 "\300\207" ["[%t] %n> "] 1 #1#] "The format specification for lines you type in the chat buffer.\n\nThese fields are available:\n\n%t Time, formatted according to `jabber-chat-time-format'\n or `jabber-chat-delayed-time-format'\n%u Username\n%n Nickname (obsolete, same as username)\n%r Resource\n%j Bare JID (without resource)" jabber-chat-foreign-prompt-format #[0 "\300\207" ["[%t] %n> "] 1 #1#] "The format specification for lines others type in the chat buffer.\n\nThese fields are available:\n\n%t Time, formatted according to `jabber-chat-time-format'\n or `jabber-chat-delayed-time-format'\n%n Nickname, or JID if no nickname set\n%u Username\n%r Resource\n%j Bare JID (without resource)" jabber-chat-system-prompt-format #[0 "\300\207" ["[%t] *** "] 1 #1#] "The format specification for lines from the system or special chat.\nThe format specification for lines from the system or that are special in the\nchat buffer." jabber-chat-prompt-local ((t (:foreground "blue" :weight bold))) "face for displaying the chat prompt for what you type in" jabber-chat-prompt-foreign ((t (:foreground "red" :weight bold))) "face for displaying the chat prompt for what they send" jabber-chat-prompt-system ((t (:foreground "green" :weight bold))) "face used for system and special messages" jabber-chat-text-local ((t nil)) "Face used for text you write" jabber-chat-text-foreign ((t nil)) "Face used for text others write" jabber-chat-error ((t (:foreground "red" :weight bold))) "Face used for error messages"] 8) | |
| 9 | #@42 JID of the person you are chatting with.\1f | |
| 10 | (defvar jabber-chatting-with nil (#$ . 4966)) | |
| 11 | #@352 List of functions that may be able to print part of a message. | |
| 12 | Each function receives these arguments: | |
| 13 | ||
| 14 | XML-DATA The entire message stanza | |
| 15 | WHO :local or :foreign, for sent or received stanza, respectively | |
| 16 | MODE :insert or :printp. For :insert, insert text at point. | |
| 17 | For :printp, return non-nil if function would insert text.\1f | |
| 18 | (defvar jabber-chat-printers '(jabber-chat-print-subject jabber-chat-print-body jabber-chat-print-url jabber-chat-goto-address) (#$ . 5060)) | |
| 19 | #@503 List of functions that may be able to print a body for a message. | |
| 20 | Each function receives these arguments: | |
| 21 | ||
| 22 | XML-DATA The entire message stanza | |
| 23 | WHO :local, :foreign or :error | |
| 24 | MODE :insert or :printp. For :insert, insert text at point. | |
| 25 | For :printp, return non-nil if function would insert text. | |
| 26 | ||
| 27 | These functions are called in order, until one of them returns | |
| 28 | non-nil. | |
| 29 | ||
| 30 | Add a function to the beginning of this list if the tag it handles | |
| 31 | replaces the contents of the <body/> tag.\1f | |
| 32 | (defvar jabber-body-printers '(jabber-chat-normal-body) (#$ . 5559)) | |
| 33 | #@224 List of functions called when a chat message is sent. | |
| 34 | The arguments are the text to send, and the id attribute of the | |
| 35 | message. | |
| 36 | ||
| 37 | The functions should return a list of XML nodes they want to be | |
| 38 | added to the outgoing message.\1f | |
| 39 | (defvar jabber-chat-send-hooks nil (#$ . 6137)) | |
| 40 | #@97 Float-time of earliest backlog entry inserted into buffer. | |
| 41 | nil if no backlog has been inserted.\1f | |
| 42 | (defvar jabber-chat-earliest-backlog nil (#$ . 6414)) | |
| 43 | #@173 Return the chat buffer for chatting with CHAT-WITH (bare or full JID). | |
| 44 | Either a string or a buffer is returned, so use `get-buffer' or | |
| 45 | `get-buffer-create'. | |
| 46 | ||
| 47 | (fn CHAT-WITH)\1f | |
| 48 | (defalias 'jabber-chat-get-buffer #[257 "\301\b\302\303\ 4!B\304\305\ 5!B\306\307\ 6\ 6!\206\15\0\310BE\"\207" [jabber-chat-buffer-format format-spec 110 jabber-jid-displayname 106 jabber-jid-user 114 jabber-jid-resource ""] 8 (#$ . 6571)]) | |
| 49 | #@124 Prepare a buffer for chatting with CHAT-WITH. | |
| 50 | This function is idempotent. | |
| 51 | JC is the Jabber connection. | |
| 52 | ||
| 53 | (fn JC CHAT-WITH)\1f | |
| 54 | (defalias 'jabber-chat-create-buffer #[514 "r\306\307\ 2!!q\210\b\310=\204C\0\310\ 2\311\"\210\312\301!\210\211\11\313\12\v\14\312\305!\210\r\204C\0\314\ 1!\211\2043\0\315 \15\210\202C\0\315\316\ 2@\317H!!\15\320\321\ 2\237\"\266\ 2\ 1\16\12p)\207" [major-mode jabber-chatting-with jabber-send-function jabber-chat-header-line-format header-line-format jabber-chat-earliest-backlog get-buffer-create jabber-chat-get-buffer jabber-chat-mode jabber-chat-pp make-local-variable jabber-chat-send jabber-history-backlog jabber-float-time jabber-parse-time 0 mapc jabber-chat-insert-backlog-entry jabber-buffer-connection] 7 (#$ . 6979)]) | |
| 55 | #@60 Insert backlog entry MSG at beginning of buffer. | |
| 56 | ||
| 57 | (fn MSG)\1f | |
| 58 | (defalias 'jabber-chat-insert-backlog-entry #[257 "\302\ 1\303H!\304\305\ 3\306HBC\307\310\ 5\311HE\312\313\314\315\ 6\a!BDDF\ 2\316H\317\230\203)\0\320\202*\0\321\ 1\322\323F\b\203b\0\324 \303\"\203b\0\324 \303\"\211\306H\262\ 1@\325=\203b\0\326\ 3\324 \303\"\211\306H\262\ 1A@\"\204b\0\327 \324 \303\"\ 3#\207\330 \ 2\"\210\b\205q\0\330 \325\ 5D\"\207" [jabber-print-rare-time jabber-chat-ewoc jabber-parse-time 0 message from 2 body nil 4 x (xmlns . "jabber:x:delay") stamp jabber-encode-legacy-time 1 "in" :foreign :local :delayed t ewoc-nth :rare-time jabber-rare-time-needed ewoc-enter-after ewoc-enter-first] 10 (#$ . 7706)]) | |
| 59 | (byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Display more context" jabber-chat-display-more-backlog] 4) | |
| 60 | #@118 Display more context. | |
| 61 | The HOW-MANY argument is number of messages. | |
| 62 | Specify 0 to display all messages. | |
| 63 | ||
| 64 | (fn HOW-MANY)\1f | |
| 65 | (defalias 'jabber-chat-display-more-backlog #[257 "\306\18\307\19\211\310U\203\ e\0\306\202\ f\0\211\1a\311\v\206\16\0\f\r\"\211\205/\0\312\313\ 2@\310H!!\15\212eb\210\314\315\ 2\237\")+\207" [inhibit-read-only jabber-backlog-days jabber-backlog-number jabber-chatting-with jabber-group jabber-chat-earliest-backlog t nil 0 jabber-history-backlog jabber-float-time jabber-parse-time mapc jabber-chat-insert-backlog-entry] 6 (#$ . 8502) "nHow many more messages (Specify 0 to display all)? "]) | |
| 66 | (add-to-list 'jabber-message-chain 'jabber-process-chat) | |
| 67 | #@17 | |
| 68 | ||
| 69 | (fn XML-DATA)\1f | |
| 70 | (defalias 'jabber-get-forwarded-message #[257 "\300\ 1\301\"@\300\ 1\302\"@\300\ 1\303\"@\211\205\14\0\211\207" [jabber-xml-get-children sent forwarded message] 6 (#$ . 9151)]) | |
| 71 | #@109 If XML-DATA is a one-to-one chat message, handle it as such. | |
| 72 | JC is the Jabber connection. | |
| 73 | ||
| 74 | (fn JC XML-DATA)\1f | |
| 75 | (defalias 'jabber-process-chat #[514 "\302\ 1!?\205\322\0\303\ 1\304\"@\203*\0\305\ 1!\211\306\ 1:\205\1d\0\307\ 2\ 2\"\266\202\ 1\310\ 5\ 3\"D\266\202\202-\0\211\311D\211G\312U\203=\0\211\ 1A\262\ 2\242\202D\0\313\314\315\ 3GD\"\ 1\242\ 1\316\ 1:\205Q\0\307\ 2\ 2\"\266\202\303\ 3\317\"\303\ 4\320\"@\211AA\211\321\232?\205g\0\211\266\202@\ 1\204x\0\322\323\ 6\ 6\324\325$\205\320\0r\326\ 3!\203\215\0\327\ 6\b\330\ 5!\331\ 6\ 6!#\202\226\0\ 3\206\226\0\310\ 6\b\ 4\"q\210\332\b\ 3\203\242\0\333\202\243\0\324\ 6\a\334\335 F\"\336\ 1!\266\ 2\337\211\205\315\0\211@\340\ 1\ 6\ 6p\ 6\ 6 \ 6\np\ 6\n#%\210\ 1A\266\202\202\260\0\262\ 1)\266\206\207" [jabber-chat-ewoc jabber-alert-message-function jabber-muc-message-p jabber-xml-get-children sent jabber-get-forwarded-message to xml-get-attribute-or-nil jabber-chat-create-buffer nil 2 signal wrong-number-of-arguments (xml-data chat-buffer) from error body (("")) run-hook-with-args-until-success jabber-chat-printers :foreign :printp jabber-muc-sender-p jabber-muc-private-create-buffer jabber-jid-user jabber-jid-resource ewoc-enter-last :error :time current-time jabber-maybe-print-rare-time (jabber-message-hooks jabber-alert-message-hooks) run-hook-with-args] 19 (#$ . 9342)]) | |
| 76 | #@108 Send BODY through connection JC, and display it in chat buffer. | |
| 77 | JC is the Jabber connection. | |
| 78 | ||
| 79 | (fn JC BODY)\1f | |
| 80 | (defalias 'jabber-chat-send #[514 "\303\304\305\306 #\307\310\bB\311\312\ 4BE\313\314\ 5EE \211\203T\0\211@\211\315=\203D\0\316\301!\203M\0\317\301!\211\203@\0\211@\ 4\ 1\ 6\b\ 6\b\"\244\210\ 1A\266\202\202*\0\210\202M\0\ 2\ 1\ 6\ 6\ 6\ 6\"\244\210\ 1A\266\202\202\15\0\210\320\321\ 2\322\323$\203j\0\324\325\n\322\ 4\326\306 F\"!\210\327\ 4\ 2\"\207" [jabber-chatting-with jabber-chat-send-hooks jabber-chat-ewoc apply format "emacs-msg-%d.%d.%d" current-time message to (type . "chat") id body nil t local-variable-p default-value run-hook-with-args-until-success jabber-chat-printers :local :printp jabber-maybe-print-rare-time ewoc-enter-last :time jabber-send-sexp] 12 (#$ . 10579)]) | |
| 81 | #@190 Pretty-print a <message/> stanza. | |
| 82 | (car data) is either :local, :foreign, :error or :notice. | |
| 83 | (cadr data) is the <message/> stanza. | |
| 84 | This function is used as an ewoc prettyprinter. | |
| 85 | ||
| 86 | (fn DATA)\1f | |
| 87 | (defalias 'jabber-chat-pp #[257 "`\ 1A@<\205\r\0\302\ 2A@!\303\ 3AA\304\"\30510\0\306\ 4A@\307\"@\211AA\211\310\232?\205)\0\211\266\202@0\2022\0\210\311\211G\312V\205?\0\211\313\312O\314\230\ 3\206J\0\303\ 6\ 6AA\315\"`\ 6\a@\211\316\267\210\202\321\0\317\ 6\a\206]\0\ 6\ 6\ 4\ 6\ 6#\266\ 2\202\321\0\ 6\bA@<\203\202\0\320\ 6 A@!\203\202\0\321\ 6 A@!\266\ 2\202\321\0\322\ 6 A@<\205\217\0\ 6 A@\ 6\b\206\226\0\ 6\a\ 5\ 6\a$\266\ 2\202\321\0\323\ 6\a\206\247\0\ 6\ 6!\266\ 2\202\321\0\324\ 6 A@\325\ 6\ 6#\266\ 2\202\321\0\324\ 6 A@\311\ 6\ 6#\266\ 2\202\321\0\326 \266\ 2\202\321\0\210\327\ 1`\330\331$\266\ 3\ 5@\211\332\267\210\202\203\ 1\333\334\ 6\bA@\ 6 @\335$\266\ 2\202\203\ 1\336\211\203\f\ 1\211@\333\ 1\ 6\nA@\ 6\v@\335$\210\ 1A\266\202\202\363\0\266\ 2\202\203\ 1\ 6\ 6A@;\203'\ 1\337\ 6\aA@\340\341#c\266\ 2\202\203\ 1\342\ 6\aA@!\266\ 2\202\203\ 1\ 6\ 6A@c\266\ 2\202\203\ 1\337\343\b\ 6 A@\"\340\344#c\266\ 2\202\203\ 1\345c\210\ 6\ 6A@;\203k\ 1\ 6\ 6A@G\313U\204k\ 1\346\ 6\aA@\347\261\ 3\210\350c\210\351\211\352\353\"\210\211\354\355\"\210\211\356\357\"\266\ 3\202\203\ 1\210 \203\220\ 1\214\ 4`}\210\360 \210)\327\ 5`\361\325$\210\327\ 5`\362\325$\210\327\ 5`\363\325$\207" [jabber-rare-time-format jabber-chat-fill-long-lines jabber-message-timestamp plist-get :time (error) jabber-xml-get-children body (("")) nil 4 0 "/me " :delayed #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:local 85 :foreign 102 :error 159 :notice 159 :subscription-request 159 :muc-local 173 :muc-foreign 187 :muc-notice 201 :muc-error 201)) jabber-chat-self-prompt jabber-muc-private-message-p jabber-muc-private-print-prompt jabber-chat-print-prompt jabber-chat-system-prompt jabber-muc-print-prompt t jabber-muc-system-prompt put-text-property field jabber-prompt #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:local 226 :foreign 226 :muc-local 242 :muc-foreign 242 :error 273 :muc-error 273 :notice 306 :muc-notice 306 :rare-time 316 :subscription-request 333)) run-hook-with-args jabber-chat-printers :insert (jabber-muc-printers jabber-chat-printers) jabber-propertize face jabber-chat-error jabber-chat-print-error format-time-string jabber-rare-time-face "This user requests subscription to your presence.\n" "Message: " "\n" "Accept?\n\n" #[514 "\300\301!\203\ f\0\301\ 2\302\ 3#\210\202!\0\303 \304\ 1\305\ 4#\210\306\ 3\307\ 3\310\311%c\266\ 2\312c\207" [fboundp insert-button action make-keymap define-key "\r" jabber-propertize keymap face highlight " "] 9 "\n\n(fn TEXT ACTION)"] "Mutual" jabber-subscription-accept-mutual "One-way" jabber-subscription-accept-one-way "Decline" jabber-subscription-decline jabber-chat-buffer-fill-long-lines read-only front-sticky rear-nonsticky] 14 (#$ . 11333)]) | |
| 88 | #@92 Return non-nil if a timestamp should be printed between TIME1 and TIME2. | |
| 89 | ||
| 90 | (fn TIME1 TIME2)\1f | |
| 91 | (defalias 'jabber-rare-time-needed #[514 "\301\b\ 3\"\301\b\ 3\"\230?\207" [jabber-rare-time-format format-time-string] 6 (#$ . 14092)]) | |
| 92 | #@57 Print rare time before NODE, if appropriate. | |
| 93 | ||
| 94 | (fn NODE)\1f | |
| 95 | (defalias 'jabber-maybe-print-rare-time #[257 "\302\b\ 2\"\ 1\303H\ 1\205\ e\0\ 1\303H\304 \205-\0\ 3\203\"\0\305\ 1\ 3!\ 2\ 5!\"\205-\0\306\b\ 6\ 6\307\ 4\ 6\a!D#\207" [jabber-chat-ewoc jabber-print-rare-time ewoc-prev 2 #[257 "\211A@<\203\ f\0\300\ 1A@!\206\15\0\301\ 1AA\302\"\207" [jabber-message-timestamp plist-get :time] 4 "\n\n(fn ENTRY)"] jabber-rare-time-needed ewoc-enter-before :rare-time] 11 (#$ . 14320)]) | |
| 96 | #@362 Print prompt for received message in XML-DATA. | |
| 97 | TIMESTAMP is the timestamp to print, or nil to get it | |
| 98 | from a jabber:x:delay element. | |
| 99 | If DELAYED is non-nil, print long timestamp | |
| 100 | (`jabber-chat-delayed-time-format' as opposed to | |
| 101 | `jabber-chat-time-format'). | |
| 102 | If DONT-PRINT-NICK-P is non-nil, don't include nickname. | |
| 103 | ||
| 104 | (fn XML-DATA TIMESTAMP DELAYED DONT-PRINT-NICK-P)\1f | |
| 105 | (defalias 'jabber-chat-print-prompt #[1028 "\ 3\303\ 1:\205\v\0\304\ 2\ 2\"\266\202\ 3\206\14\0\305\ 5!\306\307\b\310\311\ 6\b\203\"\0 \202#\0\n\ 6\ 6\"B\312\ 6\a\2031\0\313\2025\0\314\ 6\a!B\315\316\ 6\b!\206@\0\ 6\aB\317\320\ 6 !B\321\322\ 6\n!B\257\ 5\"\323\324\325\311\326\ 6\a\"\327\ 6\bQ%c\207" [jabber-chat-foreign-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format from xml-get-attribute-or-nil jabber-message-timestamp jabber-propertize format-spec 116 format-time-string 110 "" jabber-jid-displayname 117 jabber-jid-username 114 jabber-jid-resource 106 jabber-jid-user face jabber-chat-prompt-foreign help-echo "On %Y-%m-%d %H:%M:%S" " from "] 16 (#$ . 14758)]) | |
| 106 | #@18 | |
| 107 | ||
| 108 | (fn TIMESTAMP)\1f | |
| 109 | (defalias 'jabber-chat-system-prompt #[257 "\302\303\b\304\305 \ 6\ 6\"B\306\307B\310\307B\311\307B\312\307B\257\ 5\"\313\314\315\305\316\ 6\a\"\260\ 1%c\207" [jabber-chat-foreign-prompt-format jabber-chat-time-format jabber-propertize format-spec 116 format-time-string 110 "" 117 114 106 face jabber-chat-prompt-system help-echo "System message on %Y-%m-%d %H:%M:%S"] 10 (#$ . 15762)]) | |
| 110 | #@305 Print prompt for sent message. | |
| 111 | TIMESTAMP is the timestamp to print, or nil for now. | |
| 112 | If DELAYED is non-nil, print long timestamp | |
| 113 | (`jabber-chat-delayed-time-format' as opposed to | |
| 114 | `jabber-chat-time-format'). | |
| 115 | If DONT-PRINT-NICK-P is non-nil, don't include nickname. | |
| 116 | ||
| 117 | (fn TIMESTAMP DELAYED DONT-PRINT-NICK-P)\1f | |
| 118 | (defalias 'jabber-chat-self-prompt #[771 "\304\b!\305\ 1\306\"\305\ 2\307\"\305\ 3\310\"\311\312 \313\314\ 6\n\203\1d\0\n\202\1e\0\v\ 6\f\"B\315\ 6 \203,\0\316\202.\0\ 6\aB\317\ 6\bB\320\ 6\aB\321\ 6\n\322\ 6\vQB\257\ 5\"\323\324\325\314\326\ 6\r\"\327P%c\207" [jabber-buffer-connection jabber-chat-local-prompt-format jabber-chat-delayed-time-format jabber-chat-time-format fsm-get-state-data plist-get :username :server :resource jabber-propertize format-spec 116 format-time-string 110 "" 117 114 106 "@" face jabber-chat-prompt-local help-echo "On %Y-%m-%d %H:%M:%S" " from you"] 18 (#$ . 16162)]) | |
| 119 | #@161 Print error in given <message/> in a readable way. | |
| 120 | ||
| 121 | XML-DATA is the parsed tree data from the stream (stanzas) | |
| 122 | obtained from `xml-parse-region'. | |
| 123 | ||
| 124 | (fn XML-DATA)\1f | |
| 125 | (defalias 'jabber-chat-print-error #[257 "\300\ 1\301\"@\302\303\304\ 3!P\305\306#c\207" [jabber-xml-get-children error jabber-propertize "Error: " jabber-parse-error face jabber-chat-error] 6 (#$ . 17034)]) | |
| 126 | #@162 Print subject of given <message/>, if any. | |
| 127 | ||
| 128 | XML-DATA is the parsed tree data from the stream (stanzas) | |
| 129 | obtained from `xml-parse-region'. | |
| 130 | ||
| 131 | (fn XML-DATA WHO MODE)\1f | |
| 132 | (defalias 'jabber-chat-print-subject #[771 "\300\ 3\301\"@\211AA\211\302\232?\205\10\0\211\266\202@\211G\303U?\2052\0\ 1\304\267\2021\0\305\207\306\307\310\311#\306\ 2\310\312#\313\261\ 3\207\314\207" [jabber-xml-get-children subject (("")) 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:printp 33 :insert 35)) t jabber-propertize "Subject: " face jabber-chat-prompt-system jabber-chat-text-foreign "\n" nil] 9 (#$ . 17405)]) | |
| 133 | #@26 | |
| 134 | ||
| 135 | (fn XML-DATA WHO MODE)\1f | |
| 136 | (defalias 'jabber-chat-print-body #[771 "\300\301\ 4\ 4\ 4$\207" [run-hook-with-args-until-success jabber-body-printers] 8 (#$ . 18027)]) | |
| 137 | #@70 Print body for received message in XML-DATA. | |
| 138 | ||
| 139 | (fn XML-DATA WHO MODE)\1f | |
| 140 | (defalias 'jabber-chat-normal-body #[771 "\301\ 3\302\"@\211AA\211\303\232?\205\10\0\211\266\202@\211\205\221\0\ 1\304=\203\220\0\211G\305V\203{\0\211\306\305O\307\230\203{\0\211\305\310O\ 3\311=\203@\0\312\313\b!\314\"\202m\0\315\ 5!\204L\0\316\ 5!\203^\0\317\ 5\320\ 1:\205X\0\321\ 2\ 2\"\266\202!\202m\0\322\ 5\320\ 1:\205j\0\321\ 2\ 2\"\266\202!\323\ 1\324\ 4Q\325\326#c\266\ 3\202\220\0\323\ 1\325\ 5\327\267\202\214\0\330\202\215\0\331\202\215\0\310#c\210\332\207" [jabber-buffer-connection jabber-xml-get-children body (("")) :insert 4 0 "/me " nil :local plist-get fsm-get-state-data :username jabber-muc-message-p jabber-muc-private-message-p jabber-jid-resource from xml-get-attribute-or-nil jabber-jid-displayname jabber-propertize " " face jabber-chat-prompt-system #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:foreign 132 :muc-foreign 132 :local 136 :muc-local 136)) jabber-chat-text-foreign jabber-chat-text-local t] 11 (#$ . 18190)]) | |
| 141 | #@166 Print URLs provided in jabber:x:oob namespace. | |
| 142 | ||
| 143 | XML-DATA is the parsed tree data from the stream (stanzas) | |
| 144 | obtained from `xml-parse-region'. | |
| 145 | ||
| 146 | (fn XML-DATA WHO MODE)\1f | |
| 147 | (defalias 'jabber-chat-print-url #[771 "\300\ 3\211AA\211\301\232?\205\r\0\211\266\202\211\203\201\0\211@\211<\203z\0\211\211<\205\"\0\211@\262\ 1\302=\203z\0\211\303\ 1:\2054\0\304\ 2\ 2\"\266\202\305\230\203z\0\306\262\ 3\ 3\307=\203z\0\310\ 1\311\"@\211AA\211\301\232?\205T\0\211\266\202@\310\ 2\312\"@\211AA\211\301\232?\205g\0\211\266\202@\313\314\315\316\317#\320\321\ 4\ 6\ 6#\261\ 3\266\ 3\ 1A\266\202\202\ f\0\210\207" [nil (("")) x xmlns xml-get-attribute-or-nil "jabber:x:oob" t :insert jabber-xml-get-children url desc "\n" jabber-propertize "URL: " face jabber-chat-prompt-system format "%s <%s>"] 14 (#$ . 19202)]) | |
| 148 | #@166 Call `goto-address' on the newly written text. | |
| 149 | ||
| 150 | XML-DATA is the parsed tree data from the stream (stanzas) | |
| 151 | obtained from `xml-parse-region'. | |
| 152 | ||
| 153 | (fn XML-DATA WHO MODE)\1f | |
| 154 | (defalias 'jabber-chat-goto-address #[771 "\211\300=\205\1f\0\3011\1d\0``\302ZeT]\303\304\305\211\ 4#\ 3\"\266\2020\207\210\305\207" [:insert (error) 1000 goto-address-fontify field-beginning nil] 10 (#$ . 19959)]) | |
| 155 | (byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Compose message" jabber-compose] 4) | |
| 156 | #@94 Send a message tag to the server. | |
| 157 | JC is the Jabber connection. | |
| 158 | ||
| 159 | (fn JC TO SUBJECT BODY TYPE)\1f | |
| 160 | (defalias 'jabber-send-message #[1285 "\301\ 5\302\303\ 6\aB\ 4G\304V\205\11\0\305\ 5BD\ 6\ 6G\304V\205\1f\0\306\307\ 6\bE\ 6\ 6G\304V\205,\0\310\307\ 6\bEF\"\210\b\205C\0\211\311\230?\205C\0\312\313\307\ 6\ 6\ 5\314 %\207" [jabber-history-enabled jabber-send-sexp message to 0 type subject nil body "groupchat" jabber-history-log-message "out" current-time] 13 (#$ . 20443) (byte-code "\304 \305\306!\307\310\211\211\18\19\1a\e\311\v\n \b\312%,\313\310\211\211\18\19\1a\e\311\v\n \b\312%,\311\314!\257\ 5\207" [default-value history initial-contents prompt jabber-read-account jabber-read-jid-completing "to: " "subject: " nil read-string t "body: " "type: "] 9)]) | |
| 161 | (byte-code "\300\301\302\303B\"\207" [add-to-list jabber-jid-chat-menu "Start chat" jabber-chat-with] 4) | |
| 162 | #@193 Open an empty chat window for chatting with JID. | |
| 163 | With a prefix argument, open buffer in other window. | |
| 164 | Returns the chat buffer. | |
| 165 | JC is the Jabber connection. | |
| 166 | ||
| 167 | (fn JC JID &optional OTHER-WINDOW)\1f | |
| 168 | (defalias 'jabber-chat-with #[770 "\300\ 3\ 3\"\ 1\203\f\0\301\ 1!\207\302\ 1!\207" [jabber-chat-create-buffer switch-to-buffer-other-window switch-to-buffer] 6 (#$ . 21255) (byte-code "\301\302!\303\304\ 2\"\211\ 2\bE\207" [current-prefix-arg jabber-read-jid-completing "chat with:" jabber-read-account nil] 5)]) | |
| 169 | #@158 Start chat with JID at point. | |
| 170 | Signal an error if there is no JID at point. | |
| 171 | With a prefix argument, open buffer in other window. | |
| 172 | ||
| 173 | (fn &optional OTHER-WINDOW)\1f | |
| 174 | (defalias 'jabber-chat-with-jid-at-point #[256 "\300`\301\"\300`\302\"\ 1\203\16\0\211\203\16\0\303\ 1\ 3\ 5#\207\304\305!\207" [get-text-property jabber-jid jabber-account jabber-chat-with error "No contact at point"] 7 (#$ . 21752) "P"]) | |
| 175 | (provide 'jabber-chat) |