Reorganización de directorios

[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-activity.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\324\317\312\307&	\210\314\325\316\317\326DD\327\312\307\324\330&\a\210\314\331\316\317\332DD\333\322\334\324\335\312\307&	\210\314\336\316\317\337DD\340\324\341\312\307\322\342&	\210\314\343\316\317\344DD\345\324\346\312\307\322\347&	\210\314\350\316\317\351DD\352\324\317\312\307&\a\210\314\353\316\317\354DD\355\324\341\312\307&\a\210\314\356\316\317\357DD\360\324\361\312\307&\a\210\362\363\364\365\312\307%\210\362\366\367\370\312\307%\207" [require jabber-core jabber-alert jabber-util jabber-muc-nick-completion cl-lib custom-declare-group jabber-activity nil "Activity tracking options." :group jabber custom-declare-variable jabber-activity-make-string funcall function #[0 "\300\207" [jabber-activity-make-string-default] 1 #1=""] "Function to call to show a string in the modeline.\nThe default function returns the nick of the user." :set #[514 "\300\ 2\ 2\"\210\301\302!\205\16\0\303\304!\205\16\0\304 \210\305 \207" [custom-set-default featurep jabber-activity fboundp jabber-activity-make-name-alist jabber-activity-mode-line-update] 5 "\n\n(fn VAR VAL)"] :type jabber-activity-shorten-minimum #[0 "\300\207" [1] 1 #1#] "Length of the strings returned by `jabber-activity-make-strings-shorten'.\nAll strings returned by `jabber-activity-make-strings-shorten' will be\nat least this long, when possible." number jabber-activity-make-strings #[0 "\300\207" [jabber-activity-make-strings-default] 1 #1#] "Function which should return an alist of JID -> string given a list of JIDs." #[514 "\300\ 2\ 2\"\210\301\302!\205\16\0\303\304!\205\16\0\304 \210\305 \207" [custom-set-default featurep jabber-activity fboundp jabber-activity-make-name-alist jabber-activity-mode-line-update] 5 "\n\n(fn VAR VAL)"] (choice (function-item :tag "Keep strings" :value jabber-activity-make-strings-default) (function-item :tag "Shorten strings" :value jabber-activity-make-strings-shorten) (function :tag "Other function")) jabber-activity-count-in-title #[0 "\300\207" [nil] 1 #1#] "If non-nil, display number of active JIDs in frame title." boolean #[514 "\301\ 2\ 2\"\210\302\303!\205\1c\0\304\300!\205\1c\0\b\205\1c\0\300\305!\210\300\306!\207" [jabber-activity-mode custom-set-default featurep jabber-activity boundp -1 1] 5 "\n\n(fn VAR VAL)"] jabber-activity-count-in-title-format #[0 "\300\207" [(jabber-activity-jids ("[" jabber-activity-count-string "] "))] 1 #1#] "Format string used for displaying activity in frame titles.\nSame syntax as `mode-line-format'." sexp #[514 "\301\302!\203\10\0\303\300!\203\10\0\b\204\15\0\304\ 2\ 2\"\207\300\305!\210\304\ 2\ 2\"\210\300\306!\207" [jabber-activity-mode featurep jabber-activity boundp custom-set-default -1 1] 5 "\n\n(fn VAR VAL)"] jabber-activity-show-p #[0 "\300\207" [jabber-activity-show-p-default] 1 #1#] "Function that checks if the given JID should be shown on the mode line.\nPredicate function to call to check if the given JID should be\nshown in the mode line or not." jabber-activity-query-unread #[0 "\300\207" [t] 1 #1#] "Query the user as to whether killing Emacs should be cancelled when\nthere are unread messages which otherwise would be lost." jabber-activity-banned #[0 "\300\207" [nil] 1 #1#] "List of regexps of banned JID." (repeat string) custom-declare-face jabber-activity-face ((t (:foreground "red" :weight bold))) "The face for displaying jabber-activity-string in the mode line." jabber-activity-personal-face ((t (:foreground "blue" :weight bold))) "The face for displaying personal jabber-activity-string in the mode line."] 10)
#@44 A list of JIDs which have caused activity.\1f
(defvar jabber-activity-jids nil (#$ . 3686))
#@69 Subset of `jabber-activity-jids' for JIDs with "personal" activity.\1f
(defvar jabber-activity-personal-jids nil (#$ . 3781))
#@41 Alist of mode line names for bare JIDs.\1f
(defvar jabber-activity-name-alist nil (#$ . 3910))
#@38 The mode string for jabber activity.\1f
(defvar jabber-activity-mode-string "" (#$ . 4008))
#@36 Number of active JIDs as a string.\1f
(defvar jabber-activity-count-string "0" (#$ . 4103))
#@147 Hook called when `jabber-activity-jids' changes.
It is called after `jabber-activity-mode-string' and
`jabber-activity-count-string' are updated.\1f
(defvar jabber-activity-update-hook nil (#$ . 4199))
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put jabber-activity-mode-string risky-local-variable t jabber-activity-count-string] 4)
#@160 Return the nick of the JID.
If no nick is available, return the user name part of the JID. In
private MUC conversations, return the user's nickname.

(fn JID)\1f
(defalias 'jabber-activity-make-string-default #[257 "\300\ 1!\203\n\0\301\ 1!\207\302\ 1!\303\ 2!\304\ 3!\211\203\1e\0\ 2\ 2\230\203\1e\0\207\ 2\207" [jabber-muc-sender-p jabber-jid-resource jabber-jid-displayname jabber-jid-user jabber-jid-username] 6 (#$ . 4550)])
#@57 Apply `jabber-activity-make-string' on JIDS.

(fn JIDS)\1f
(defalias 'jabber-activity-make-strings-default #[257 "\300\301\ 2\"\207" [mapcar #[257 "\211\b\ 2!B\207" [jabber-activity-make-string] 4 "\n\n(fn JID)"]] 4 (#$ . 4960)])
#@72 Return length of common prefix string shared by S1 and S2.

(fn S1 S2)\1f
(defalias 'jabber-activity-common-prefix #[514 "\ 1G\ 1G^\3002)\0\301\211\ 2W\205&\0\ 3\ 1H\ 3\ 2H=\204\1f\0\302\300\ 2\"\210\211T\262\ 1\202\n\0\262\ 10\206-\0\211\207" [--cl-block-nil-- 0 throw] 7 (#$ . 5188)])
#@261 Return an alist of (JID . short-names).
This is acquired by running `jabber-activity-make-string' on
JIDS, and then shortening the names as much as possible such that
all strings still are unique and at least
`jabber-activity-shorten-minimum' long.

(fn JIDS)\1f
(defalias 'jabber-activity-make-strings-shorten #[257 "\301\302\303\ 3\"\304\"\305\ 1B\305\211\211\211\211\211\211\211\ 6\b:\203t\0\ 6\b\262\ 2\ 1\211A\262\ 3\242\262\b\ 6\a\211A\262	\242\262\a\ 1\211A\262\ 3\242\262\ 6\ 5\211A\262\a\242\262\ 5\ 1@\262\ 4\ 3\211A\262\ 5\242\262\ 3\ 5\203t\0\ 4\ 6\ 6\306\ 6\bG\b\307\ 6\v\ 6\ e\"T]\307\ 6\v\ 6\n\"T]^OB\ 1B\262\ 1\ 6\bA\262	\202\12\0\211\237\207" [jabber-activity-shorten-minimum sort mapcar #[257 "\211\b\ 2!B\207" [jabber-activity-make-string] 4 "\n\n(fn X)"] #[514 "\ 1A\ 1A\231\207" [] 4 "\n\n(fn X Y)"] nil 0 jabber-activity-common-prefix] 19 (#$ . 5452)])
#@73 Find the name of the buffer that messages from JID would use.

(fn JID)\1f
(defalias 'jabber-activity-find-buffer-name #[257 "\300\ 1!\203\13\0\301\302\303\ 3!\300\ 4!\"!\206 \0\301\304\ 2!!\206 \0\301\305\ 2!!\207" [jabber-jid-resource get-buffer jabber-muc-private-get-buffer jabber-jid-user jabber-chat-get-buffer jabber-muc-get-buffer] 6 (#$ . 6245)])
#@111 Return non-nil if there is an invisible buffer for JID, and JID is not in `jabber-activity-banned'.

(fn JID)\1f
(defalias 'jabber-activity-show-p-default #[257 "\301\ 1!\302\ 1!\2053\0\303\ 1\304\"?\2053\0\30522\0\b\211\205/\0\211@\306\ 1\ 5\"\203(\0\307\305\310\"\210\ 1A\266\202\202\16\0\262\ 10?\207" [jabber-activity-banned jabber-activity-find-buffer-name buffer-live-p get-buffer-window visible --cl-block-nil-- string-match throw t] 7 (#$ . 6590)])
#@69 Rebuild `jabber-activity-name-alist' based on currently known JIDs.\1f
(defalias 'jabber-activity-make-name-alist #[0 "\303\304\b\"\206\v\0\303\305	\"\n\ 1!\211\10\207" [jabber-activity-name-alist *jabber-roster* jabber-activity-make-strings mapcar car symbol-name] 3 (#$ . 7027)])
#@141 Lookup JID in `jabber-activity-name-alist'.
Return a (jid . string) pair suitable for the mode line, creating
an entry if needed.

(fn JID)\1f
(defalias 'jabber-activity-lookup-name #[257 "\302\ 1\b\"\211\203	\0\207	\ 2\303\304\b\"B!\10\305\ 2!\207" [jabber-activity-name-alist jabber-activity-make-strings assoc mapcar car jabber-activity-lookup-name] 7 (#$ . 7306)])
#@410 Update the string shown in the mode line using `jabber-activity-make-string'.
Update the string shown in the mode line using `jabber-activity-make-string'
on JIDs where `jabber-activity-show-p'.  Optional not-nil GROUP mean that
message come from MUC.
Optional TEXT used with one-to-one or MUC chats and may be used to identify
personal MUC message.
Optional PRESENCE mean personal presence request or alert.\1f
(defalias 'jabber-activity-mode-line-update #[0 "\b\203\ f\0\303\304\305\306\b\"\307#\202\10\0\310\11\311\bG!\12\312\313!\210\314\315!\207" [jabber-activity-jids jabber-activity-mode-string jabber-activity-count-string mapconcat #[257 "\211@\301\ 2A\302\ 3\b\235\203\10\0\303\202\11\0\304\305\306\307!\205$\0\307\310\311\312\313\314\ 6\f@DF\"\315\316\317\ 6\n@!\320Q&\a\207" [jabber-activity-personal-jids jabber-propertize face jabber-activity-personal-face jabber-activity-face local-map fboundp make-mode-line-mouse-map mouse-1 lambda nil (interactive "@") jabber-activity-switch-to help-echo "Jump to " jabber-jid-displayname "'s buffer"] 14 "\n\n(fn X)"] mapcar jabber-activity-lookup-name "," "" number-to-string force-mode-line-update all run-hooks jabber-activity-update-hook] 5 (#$ . 7668)])
#@63 Remove JIDs where `jabber-activity-show-p' no longer is true.\1f
(defalias 'jabber-activity-clean #[0 "\303\b	\"\11\303\b\n\"\12\3041\12\0\305 0\207\210\306\207" [jabber-activity-show-p jabber-activity-jids jabber-activity-personal-jids cl-delete-if-not (error) jabber-activity-mode-line-update nil] 3 (#$ . 8854)])
#@93 Add a JID to mode line when `jabber-activity-show-p'.

(fn FROM BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-activity-add #[1028 "\b\ 4!\205&\0\ 3	\235\203\11\0	\210\202\15\0\ 3	B\11\ 3\n\235\203 \0\n\210\202$\0\ 3\nB\12\303 \207" [jabber-activity-show-p jabber-activity-jids jabber-activity-personal-jids jabber-activity-mode-line-update] 6 (#$ . 9164)])
#@99 Add a JID to mode line when `jabber-activity-show-p'.

(fn NICK GROUP BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-activity-add-muc #[1285 "\b\ 4!\205-\0\ 3	\235\203\11\0	\210\202\15\0\ 3	B\11\303\ 2\ 5\"\203+\0\ 3\n\235\203'\0\n\210\202+\0\ 3\nB\12\304 \207" [jabber-activity-show-p jabber-activity-jids jabber-activity-personal-jids jabber-muc-looks-like-personal-p jabber-activity-mode-line-update] 8 (#$ . 9503)])
#@106 Add a JID to mode line on subscription requests.

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT PROPOSED-ALERT)\1f
(defalias 'jabber-activity-presence #[1285 "\ 2\302\230\2050\0\303\ 5!\211\b\235\203\15\0\b\266\ 2\202\1a\0\211\bB\10\210\303\ 5!\211	\235\203)\0	\266\ 2\202.\0\211	B\11\210\304 \207" [jabber-activity-jids jabber-activity-personal-jids "subscribe" symbol-name jabber-activity-mode-line-update] 8 (#$ . 9900)])
#@237 Query the user if is sure to kill Emacs when there are unread messages.
Query the user as to whether killing Emacs should be cancelled
when there are unread messages which otherwise would be lost, if
`jabber-activity-query-unread' is t\1f
(defalias 'jabber-activity-kill-hook #[0 "\b\203\10\0	\203\10\0\n\206\11\0\303\304!\207\305\207" [jabber-activity-jids jabber-activity-query-unread jabber-silent-mode yes-or-no-p "You have unread Jabber messages, are you sure you want to quit?" t] 2 (#$ . 10296)])
#@30 Last non-Jabber buffer used.\1f
(defvar jabber-activity-last-buffer nil (#$ . 10793))
#@245 If JID-PARAM is provided, switch to that buffer.
If JID-PARAM is nil and there has been activity in another
buffer, switch to that buffer. If no such buffer exists, switch
back to the last non Jabber chat buffer used.

(fn &optional JID-PARAM)\1f
(defalias 'jabber-activity-switch-to #[256 "\211\204\b\0\b\203\1f\0\211\206\ e\0\b@	\303=\204\16\0p\12\304\305\ 2!!\210\306 \207	\303=\203/\0\307\n!\2052\0\304\n!\207\310\311!\207" [jabber-activity-jids major-mode jabber-activity-last-buffer jabber-chat-mode switch-to-buffer jabber-activity-find-buffer-name jabber-activity-clean buffer-live-p message "No new activity"] 5 (#$ . 10883) nil])
#@40 Idle timer used for activity cleaning.\1f
(defvar jabber-activity-idle-timer nil (#$ . 11507))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\v\207" [custom-declare-variable jabber-activity-mode funcall function #[0 "\300\207" [t] 1 ""] "Non-nil if Jabber-Activity mode is enabled.\nSee the `jabber-activity-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `jabber-activity-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group jabber-activity] 12)
#@715 Toggle display of activity in hidden jabber buffers in the mode line.

This is a minor mode.  If called interactively, toggle the
`Jabber-Activity mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='jabber-activity-mode)'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

With a numeric arg, enable this display if arg is positive.

(fn &optional ARG)\1f
(defalias 'jabber-activity-mode #[256 "\306 \307\301\ 3\310=\203\11\0\311\301!?\202!\0\ 3\247\203 \0\ 3\312W\203 \0\313\202!\0\314\"\210\315\300!\2038\0\316\301\b\"\10\311\301!\2038\0\301\bB\10	\203\222\0\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\317\326\327\"\210\330\331\314\321#\12\332\333\334\"\210\332\335\336\"\210\v\203\321\0\f\242\337\232\203s\0\332\304\r\"\210\202x\0\337\r\fE\14\ e \242\337\232\203\210\0\332\340\r\"\210\202\321\0\337\r\ e E\16 \202\321\0\341\320\342\"\210\341\322\323\"\210\341\324\325\"\210\341\326\327\"\210\3431\262\0\344\n!0\210\202\263\0\210\345\346\ e\1d\"\16\1d\f<\203\304\0\345\r\f\"\14\ e <\203\321\0\345\r\ e \"\16 \347\350\311\301!\203\335\0\351\202\336\0\352\"\210\353\354!\203\ 6\ 1\355\301!\210\306 \203\366\0\211\306 \232\203\ 6\ 1\356\357\311\301!\203\ 2\ 1\360\202\ 3\ 1\361\337#\210\210\362 \210\311\301!\207" [global-minor-modes jabber-activity-mode jabber-activity-idle-timer jabber-activity-count-in-title frame-title-format jabber-activity-count-in-title-format current-message set-default toggle default-value 1 nil t boundp delq add-hook window-configuration-change-hook jabber-activity-clean jabber-message-hooks jabber-activity-add jabber-muc-hooks jabber-activity-add-muc jabber-presence-hooks jabber-activity-presence run-with-idle-timer 2 add-to-list kill-emacs-query-functions jabber-activity-kill-hook global-mode-string (t jabber-activity-mode-string) "" icon-title-format remove-hook jabber-activity-remove-visible (error) cancel-timer delete (t jabber-activity-mode-string) run-hooks jabber-activity-mode-hook jabber-activity-mode-on-hook jabber-activity-mode-off-hook called-interactively-p any customize-mark-as-set message "Jabber-Activity mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 12166) (byte-code "\b\203\n\0\301\b!\202\v\0\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar jabber-activity-mode-hook nil)
(byte-code "\302\303N\204\f\0\304\302\303\305#\210\304\302\306\307#\210\304\302\310\311C#\210\312\301\311\313\300!\205#\0\b\311\211%\210	\203/\0\301\314!\210\315\316!\207" [jabber-activity-mode-map jabber-activity-mode jabber-activity-mode-hook variable-documentation put "Hook run after entering or leaving `jabber-activity-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode boundp 1 provide jabber-activity] 6)