Reorganización de directorios

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

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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320\307\304&\a\210\311\321\313\314\322DD\323\317\320\307\304&\a\210\311\324\313\314\325DD\326\317\327\307\304&\a\210\311\330\313\314\331DD\332\317\333\307\304&\a\210\311\334\313\314\335DD\336\317\320\307\304&\a\210\311\337\313\314\340DD\341\317\320\307\304&\a\210\311\342\313\314\343DD\344\317\345\307\304&\a\207" [require jabber-core jabber-util custom-declare-group jabber-history nil "Customization options for Emacs\nJabber history files." :group jabber custom-declare-variable jabber-history-enabled funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means message logging is enabled." :type boolean jabber-history-muc-enabled #[0 "\300\207" [nil] 1 #1#] "Non-nil means MUC logging is enabled.\nDefault is nil, cause MUC logging may be i/o-intensive." jabber-history-dir #[0 "\300\301\302\"\207" [locate-user-emacs-file "jabber-history" ".emacs-jabber"] 3 #1#] "Base directory where per-contact history files are stored.\nUsed only when `jabber-use-global-history' is nil." directory jabber-global-history-filename #[0 "\300\301\302\"\207" [locate-user-emacs-file "jabber-global-message-log" ".jabber_global_message_log"] 3 #1#] "Global file where all messages are logged.\nUsed when `jabber-use-global-history' is non-nil." file jabber-use-global-history #[0 "\301\b!\207" [jabber-global-history-filename file-exists-p] 2 #1#] "Whether to use a global file for message history.\nIf non-nil, `jabber-global-history-filename' is used, otherwise,\nmessages are stored in per-user files under the\n`jabber-history-dir' directory." jabber-history-enable-rotation #[0 "\300\207" [nil] 1 #1#] "Whether to enable rotation of history files.\n\nIf nil, history files will grow indefinitely.\n\nIf non-nil, history files will be renamed to\n<history-file>-<number> (where <number> is 1 or the smallest\nnumber after the last rotation) when they reach\n`jabber-history-size-limit' kilobytes." jabber-history-size-limit #[0 "\300\207" [1024] 1 #1#] "Maximum history file size in kilobytes.\nWhen history file reaches this limit, it is renamed to\n<history-file>-<number>, where <number> is 1 or the smallest\nnumber after the last rotation." integer] 8)
#@258 Functions determining whether to log an incoming message stanza.
The functions in this list are called with two arguments,
the connection and the full message stanza.
If any of the functions returns non-nil, the stanza is not logged
in the message history.\1f
(defvar jabber-history-inhibit-received-message-functions nil (#$ . 2327))
#@70 Return non-nil if HISTORY-FILE should be rotated.

(fn HISTORY-FILE)\1f
(defalias 'jabber-rotate-history-p #[257 "\b\205\13\0\302\ 1!\205\13\0\303\304\ 2!8\305\245	V\207" [jabber-history-enable-rotation jabber-history-size-limit file-exists-p 7 file-attributes 1024] 4 (#$ . 2665)])
#@75 Rename HISTORY-FILE to HISTORY-FILE-TRY.

(fn HISTORY-FILE &optional TRY)\1f
(defalias 'jabber-history-rotate #[513 "\300\ 1\206\ 6\0\301!\302\ 3\303\ 3Q!\203\1e\0\304\ 3\ 3\203\e\0\ 3T\202\1c\0\301\"\207\305\ 3\211\303\ 4Q\"\207" [number-to-string 1 file-exists-p "-" jabber-history-rotate rename-file] 8 (#$ . 2940)])
(add-to-list 'jabber-message-chain 'jabber-message-history)
#@167 Log message to log file.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA)\1f
(defalias 'jabber-message-history #[514 "\b\204\ e\0\304	!\204\ e\0\305	!\210\306\ 1!\n\205^\0\211\203!\0\v\205^\0\211\205^\0\307\310\ 4\ 4#?\205^\0\ 1\311\ 1:\2055\0\312\ 2\ 2\"\266\202\313\ 3\314\"@\211AA\211\315\232?\205G\0\211\266\202@\316\ 4!\ 2\205\\\0\ 1\205\\\0\317\320\ 4\321\ 5\ 5%\266\203\207" [jabber-use-global-history jabber-history-dir jabber-history-enabled jabber-history-muc-enabled file-directory-p make-directory jabber-muc-message-p run-hook-with-args-until-success jabber-history-inhibit-received-message-functions from xml-get-attribute-or-nil jabber-xml-get-children body (("")) jabber-message-timestamp jabber-history-log-message "in" nil] 12 (#$ . 3297)])
(add-hook 'jabber-chat-send-hooks 'jabber-history-send-hook)
#@49 Log outgoing message to log file.

(fn BODY ID)\1f
(defalias 'jabber-history-send-hook #[514 "\b\204\ e\0\304	!\204\ e\0\305	!\210\n\205\1a\0\306\307\310\v\ 5\311 %\207" [jabber-use-global-history jabber-history-dir jabber-history-enabled jabber-chatting-with file-directory-p make-directory jabber-history-log-message "out" nil current-time] 8 (#$ . 4167)])
#@173 Return a history filename for CONTACT.
Return the global history filename, or (if the per-user file
logging strategy is used) a history filename for CONTACT.

(fn CONTACT)\1f
(defalias 'jabber-history-filename #[257 "\b\203\ 6\0	\207\n\303\304\305\ 4!!Q\207" [jabber-use-global-history jabber-global-history-filename jabber-history-dir "/" symbol-name jabber-jid-symbol] 6 (#$ . 4517)])
#@55 Log a message.

(fn DIRECTION FROM TO BODY TIMESTAMP)\1f
(defalias 'jabber-history-log-message #[1285 "\303\304\305\"r\211q\210\306\307\ 2\"\216\310\311\ 4G\312\ 6\ 6$\210\313\ 3!\262\ 3\314\315\ 4\"\203/\0\316\317\312\305\ 6\ 6\312%\262\ 3\202\e\0\314\320\ 4\"\203C\0\316\321\312\305\ 6\ 6\312%\262\ 3\202/\0\322\323\324\ 4\206L\0\325 !\ 6\b\206S\0\326\ 6\b\203_\0\313\ 6	!\206`\0\327\ 6\b\203l\0\313\ 6	!\206m\0\327\ 6\b&\ 6c\210\330\331\ 6\ 6\206{\0\ 5!\ 1\18	\204\214\0\332\n!\204\214\0\333\n!\210\334\ 1!\203\226\0\335\ 1!\210\3361\245\0\337ed\ 3\305\340%0\202\255\0\341\342\343\ 3!\"\262\ 1)\266\202*\207" [coding-system-for-write jabber-use-global-history jabber-history-dir generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\0\302\300!\207" [V0 buffer-name kill-buffer] 2] set-text-properties 0 nil prin1-to-string string-match "\n" replace-match "\\n" "\r" "\\r" format "[\"%s\" \"%s\" %s %s %s]\n" jabber-encode-time current-time "in" "\"me\"" utf-8 jabber-history-filename file-directory-p make-directory jabber-rotate-history-p jabber-history-rotate (error) write-region quiet message "Unable to write history: %s" error-message-string] 14 (#$ . 4901)])
#@575 Return a list of vectors, one for each message matching the criteria.
START-TIME and END-TIME are floats as obtained from `float-time'.
Either or both may be nil, meaning no restriction.
NUMBER is the maximum number of messages to return, or t for
unlimited.
DIRECTION is either "in" or "out", or t for no limit on direction.
JID-REGEXP is a regexp which must match the JID.
HISTORY-FILE is the file in which to search.

Currently jabber-history-query performs a linear search from the end
of the log file.

(fn START-TIME END-TIME NUMBER DIRECTION JID-REGEXP HISTORY-FILE)\1f
(defalias 'jabber-history-query #[1542 "\303\ 1!\205\353\0\304\305\306\"r\211q\210\307\310\ 2\"\216\311\18	\203 \0\312\ 2!\210\202f\0\313\314\n\306\315\316\317\ 6\b!!P#\211@\320\ 2A\321\"B\ 2\204d\0\211\204C\0\306\262\ 3\2025\0\211\ 1A\262\ 2\242\312\ 1!\210\ 6\b\247\203`\0\322ed\"\ 6	Y\203`\0\306\262\ 4\210\2025\0\266\ 3)\313\211db\210\3232\344\0\324 \210\325`\212\326 \210`){!@\262\ 1\ 6\b\203\222\0\327\330\ 2\331H!!\ 6	V\205\343\0\ 6\ 6\306=\204\241\0\ 1G\ 6\aW\205\343\0\ 5\306=\204\257\0\ 5\ 1\332H\230\203\327\0\ 6\a\203\301\0\ 6\a\327\330\ 3\331H!!V\203\327\0\333\ 5\334\335\ 4\336H\ 5\337HD\"@\"\203\327\0\211\ 2B\262\ 2o\203p\0\340\323\313\"\210\202p\00\210\ 1\266\202*\262\ 1\207" [coding-system-for-read jabber-use-global-history jabber-history-dir file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\0\302\300!\207" [V0 buffer-name kill-buffer] 2] utf-8 insert-file-contents nil directory-files "^" regexp-quote file-name-nondirectory sort string>-numerical count-lines beginning-of-file backward-sexp read-from-string forward-sexp jabber-float-time jabber-parse-time 0 1 string-match remove "me" 2 3 throw] 16 (#$ . 5998)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\307\310\315&\a\207" [custom-declare-variable jabber-backlog-days funcall function #[0 "\300\207" [3.0] 1 #1=""] "Age limit on messages in chat buffer backlog, in days." :group jabber :type (choice (number :tag "Number of days") (const :tag "No limit" nil)) jabber-backlog-number #[0 "\300\207" [10] 1 #1#] "Maximum number of messages in chat buffer backlog." integer] 8)
#@312 Fetch context from previous chats with JID.
Return a list of history entries (vectors), limited by
`jabber-backlog-days' and `jabber-backlog-number'.
If BEFORE is non-nil, it should be a float-time after which
no entries will be fetched.  `jabber-backlog-days' still
applies, though.

(fn JID &optional BEFORE)\1f
(defalias 'jabber-history-backlog #[513 "\302\b\205\v\0\303 \b\304_Z\ 2	\305\306\307\310\ 6	!!\311Q\312\ 6\b!&\ 6\207" [jabber-backlog-days jabber-backlog-number jabber-history-query jabber-float-time 86400.0 t "^" regexp-quote jabber-jid-user "\\(/.*\\)?$" jabber-history-filename] 11 (#$ . 8109)])
#@43 Migrate global history to per-user files.\1f
(defalias 'jabber-history-move-to-per-user #[0 "\304\b!\203\n\0\305\306!\210\307\b!\210\310\19\311\312\313\"r\211q\210\314\315\ 2\"\216\316\1a\317\v!\210)\320\321!\205/\0\321\322ed#\310\211m\204\225\0`\310y\210`\ 1\ 1{\323\ 1!@\211\324H\325\230\203O\0\211\326H\202R\0\211\324H\211\ 6\a\232\204s\0\ 6\ 6\203m\0\327\ 6\a!\330\ 6\a\ 6\a\ 3\313\331%\266\ 2\211\262\a\ 4\262\ 6\320\332!\203\220\0\ 6\a`\310\ 1\247\203\211\0\ 1\ 3@Y\205\216\0\333\ 3\ 3\ 3#\266\ 4\266\ 5\2021\0\ 1\203\245\0\327\ 2!\330\ 2d\ 3\313\331%\266\ 2\266\ 3*\210)\334\335!\207" [jabber-history-dir jabber-use-global-history coding-system-for-read jabber-global-history-filename file-directory-p error "Per-user history directory already exists" make-directory nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\0\302\300!\207" [V0 buffer-name kill-buffer] 2] utf-8 insert-file-contents fboundp make-progress-reporter "Migrating history..." read-from-string 2 "me" 3 jabber-history-filename write-region quiet progress-reporter-update progress-reporter-do-update message "Done.  Please change `jabber-use-global-history' now."] 16 (#$ . 8713) nil])
(provide 'jabber-history)