| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-log.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-log.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\306\303\313\314&\210\307\315\304\316\306\303\313\317&\210\307\320\321\322\306\303\313\323&\210\324\320!\210\307\325\326\327\306\303\313\330&\210\307\331\304\332\306\303\313\317&\210\307\333\321\334\306\303\313\317&\210\307\335\321\336\306\303\313\317&\210\307\337\304\340\306\303\313\317&\210\307\341\304\342\306\303\313\317&\210\307\343\344\345\306\303%\210\307\346\304\347\306\303\313\350&\210\307\351\304\352\353\354\355\356\306\303\313\317& \207" [require erc custom-declare-group erc-log nil "Logging facilities for ERC." :group custom-declare-variable erc-generate-log-file-name-function 'erc-generate-log-file-name-long "A function to generate a log filename.\nThe function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT.\nBUFFER is the buffer to be saved,\nTARGET is the name of the channel, or the target of the query,\nNICK is the current nick,\nSERVER and PORT are the parameters that were used to connect to BUFFERs\n`erc-server-process'.\n\nIf you want to write logs into different directories, make a\ncustom function which returns the directory part and set\n`erc-log-channels-directory' to its name." :type (choice (const :tag "#channel!nick@server:port.txt" erc-generate-log-file-name-long) (const :tag "#channel!nick@network.txt" erc-generate-log-file-name-network) (const :tag "#channel.txt" erc-generate-log-file-name-short) (const :tag "#channel@date.txt" erc-generate-log-file-name-with-date) (function :tag "Other function")) erc-truncate-buffer-on-save "Truncate any ERC (channel, query, server) buffer when it is saved." boolean erc-enable-logging t "If non-nil, ERC will log IRC conversations.\nThis can either be a boolean value of nil or t, or a function.\nIf the value is a function, it will be called with one argument, the\nname of the current ERC buffer. One possible function, which saves\nall but server buffers is `erc-log-all-but-server-buffers'.\n\nThis variable is buffer local. Setting it via \\[customize] sets the\ndefault value.\n\nLog files are stored in `erc-log-channels-directory'." (choice boolean function) make-variable-buffer-local erc-log-channels-directory "~/log" "The directory to place log files for channels.\nLeave blank to disable logging. If not nil, all the channel\nbuffers are logged in separate files in that directory. The\ndirectory should not end with a trailing slash.\n\nIf this is the name of a function, the function will be called\nwith the buffer, target, nick, server, and port arguments. See\n`erc-generate-log-file-name-function' for a description of these\narguments." (choice directory #'"Function" (const :tag "Disable logging" nil)) erc-log-insert-log-on-open "Insert log file contents into the buffer if a log file exists." erc-save-buffer-on-part "Save the channel buffer content using `erc-save-buffer-in-logs' on PART.\n\nIf you set this to nil, you may want to enable both\n`erc-log-write-after-send' and `erc-log-write-after-insert'." erc-save-queries-on-quit "Save all query (also channel) buffers of the server on QUIT.\n\nIf you set this to nil, you may want to enable both\n`erc-log-write-after-send' and `erc-log-write-after-insert'." erc-log-write-after-send "If non-nil, write to log file after every message you send.\n\nIf you set this to nil, you may want to enable both\n`erc-save-buffer-on-part' and `erc-save-queries-on-quit'." erc-log-write-after-insert "If non-nil, write to log file when new text is added to a\nlogged ERC buffer.\n\nIf you set this to nil, you may want to enable both\n`erc-save-buffer-on-part' and `erc-save-queries-on-quit'." erc-log-file-coding-system (if (featurep 'xemacs) 'binary 'emacs-mule) "The coding system ERC should use for writing log files.\n\nThis should ideally, be a \"catch-all\" coding system, like\n`emacs-mule', or `iso-2022-7bit'." erc-log-filter-function "If non-nil, pass text through the given function before writing it to\na log file.\n\nThe function should take one argument, which is the text to filter." (choice #'"Function" (const :tag "No filtering" nil)) erc-log-mode "Non-nil if Erc-Log mode is enabled.\nSee the command `erc-log-mode' for 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 `erc-log-mode'." :set custom-set-minor-mode :initialize custom-initialize-default] 12)
#@766 Toggle ERC log mode.
With a prefix argument ARG, enable log if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
Automatically logs things you receive on IRC into files.
Files are stored in `erc-log-channels-directory'; file name
format is defined through a formatting function on
`erc-generate-log-file-name-function'.
Since automatic logging is not always a Good Thing (especially if
people say things in different coding systems), you can turn logging
behavior on and off with the variable `erc-enable-logging', which can
also be a predicate function. To only log when you are not set away, use:
(setq erc-enable-logging
(lambda (buffer)
(with-current-buffer buffer
(null (erc-away-time)))))
(defalias 'erc-log-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307 \210\202! \310 \210\311\312\n\203+ \313\202, \314\"\210\315\316!\203Q \317\302!\210\303 \203D \303 \232\203Q \320\321\n\203N \322\202O \323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-log-mode current-message toggle prefix-numeric-value 0 erc-log-enable erc-log-disable run-hooks erc-log-mode-hook erc-log-mode-on-hook erc-log-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Log mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 5011) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [erc-log-mode-map add-minor-mode erc-log-mode nil boundp] 6)
#@22 Enable ERC log mode.
(defalias 'erc-log-enable #[nil "\305\306\307\"\210\310 \203 \311\312\313\"\210\n\203 \311\314\313\"\210\311\315\313\"\210\311\316\313\"\210\311\317\320\"\210\311\321\322\"\210\311\323\324\"\210\311\325\326\327#\210\330 \331\211 \205P \f@\326 !\210\fA\211\204A \331*\207" [erc-log-mode erc-log-write-after-insert erc-log-write-after-send buffer --dolist-tail-- add-to-list erc-modules log t add-hook erc-insert-post-hook erc-save-buffer-in-logs erc-send-post-hook erc-kill-buffer-hook erc-kill-channel-hook kill-emacs-hook erc-log-save-all-buffers erc-quit-hook erc-conditional-save-queries erc-part-hook erc-conditional-save-buffer erc-connect-pre-hook erc-log-setup-logging append erc-buffer-list nil] 5 (#$ . 6514) nil])
#@23 Disable ERC log mode.
(defalias 'erc-log-disable #[nil "\304\305\"\306\307\310\311\"\210\307\312\311\"\210\307\313\311\"\210\307\314\311\"\210\307\315\316\"\210\307\317\320\"\210\307\321\322\"\210\307\323\324\"\210\325 \306\211\205G @\326\n!\210 A\211\2048 \306*\207" [erc-modules erc-log-mode buffer --dolist-tail-- delq log nil remove-hook erc-insert-post-hook erc-save-buffer-in-logs erc-send-post-hook erc-kill-buffer-hook erc-kill-channel-hook kill-emacs-hook erc-log-save-all-buffers erc-quit-hook erc-conditional-save-queries erc-part-hook erc-conditional-save-buffer erc-connect-pre-hook erc-log-setup-logging erc-buffer-list erc-log-disable-logging] 4 (#$ . 7271) nil])
(byte-code "\301\302\303\304#\210\301\305\303\304#\210\301\306\303\304#\210\307\310\311#\207" [erc-mode-map put erc-log-mode definition-name log erc-log-enable erc-log-disable define-key "\f" erc-save-buffer-in-logs] 4)
#@169 Setup the buffer-local logging variables in the current buffer.
This function is destined to be run from `erc-connect-pre-hook'.
The current buffer is given by BUFFER.
(defalias 'erc-log-setup-logging #[(buffer) "\303!\205 rq\210\304\305!\210\306\307\310!\210\n\205 \306\311\312\217)\207" [buffer buffer-file-name erc-log-insert-log-on-open erc-logging-enabled auto-save-mode -1 nil erc-set-write-file-functions (erc-save-buffer-in-logs) (byte-code "\301\302 !\210dS\303\223\207" [erc-last-saved-position insert-file-contents erc-current-logfile nil] 3) ((error))] 3 (#$ . 8187)])
#@28 Disable logging in BUFFER.
(defalias 'erc-log-disable-logging #[(buffer) "\303!\205 rq\210\304\211\211)\207" [buffer buffer-offer-save erc-enable-logging erc-logging-enabled nil] 3 (#$ . 8780)])
#@99 Returns t if logging should be enabled in BUFFER.
Returns nil if `erc-server-buffer-p' returns t.
(defalias 'erc-log-all-but-server-buffers #[(buffer) "\212\302 \303\216 q\210\304 +?\207" [#1=#:wconfig buffer current-window-configuration ((set-window-configuration #1#)) erc-server-buffer-p] 1 (#$ . 8986)])
#@40 Save all buffers of the given PROCESS.
(defalias 'erc-save-query-buffers #[(process) "\303\304\305\306\n \"\"*\207" [process #1=#:pro #2=#:pre nil mapcar #[(buffer) "rq\210\301 )\207" [buffer erc-save-buffer-in-logs] 1] erc-buffer-list] 6 (#$ . 9301)])
#@55 Save Query BUFFER if `erc-save-queries-on-quit' is t.
(defalias 'erc-conditional-save-buffer #[(buffer) "\205 \302 !\207" [erc-save-buffer-on-part buffer erc-save-buffer-in-logs] 2 (#$ . 9564)])
#@67 Save Query buffers of PROCESS if `erc-save-queries-on-quit' is t.
(defalias 'erc-conditional-save-queries #[(process) "\205 \302 !\207" [erc-save-queries-on-quit process erc-save-query-buffers] 2 (#$ . 9767)])
(defalias 'erc-log-save-all-buffers #[nil "\302 \303\211\205 @\304!\210 A\211\204 \303*\207" [buffer --dolist-tail-- erc-buffer-list nil erc-save-buffer-in-logs] 3])
#@280 Return non-nil if logging is enabled for BUFFER.
If BUFFER is nil, the value of `current-buffer' is used.
Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
is writable (it will be created as necessary) and
`erc-enable-logging' returns a non-nil value.
(defalias 'erc-logging-enabled #[(&optional buffer) "\205 \303!\204 \304!\205 \303 !\203 \n\206 p!\207 \207" [erc-log-channels-directory erc-enable-logging buffer functionp erc-directory-writable-p] 2 (#$ . 10160)])
#@188 Make FILENAME safe to use as the name of an ERC log.
This will not work with full paths, only names.
Any unsafe characters in the name are replaced with "!". The
filename is downcased.
(defalias 'erc-log-standardize-name #[(filename) "\301\302\303\304!#\227\207" [filename erc-replace-regexp-in-string "[/\\]" "!" convert-standard-filename] 5 (#$ . 10671)])
#@222 Return the logfile to use for BUFFER.
If BUFFER is nil, the value of `current-buffer' is used.
This is determined by `erc-generate-log-file-name-function'.
The result is converted to lowercase, as IRC is case-insensitive
(defalias 'erc-current-logfile #[(&optional buffer) "\204 p\306!\206 \307 \310 \n \f\311\312
\f
\f %!\313!\2036 \f
\f %\2028 \",\207" [buffer erc-session-server erc-session-port port server nick buffer-name erc-default-target erc-current-nick expand-file-name erc-log-standardize-name functionp target erc-generate-log-file-name-function erc-log-channels-directory] 8 (#$ . 11039)])
#@193 This function computes a short log file name.
The name of the log file is composed of BUFFER and the current date.
This function is a possible value for `erc-generate-log-file-name-function'.
(defalias 'erc-generate-log-file-name-with-date #[(buffer &rest ignore) "\301!\302\303\304!\305R\207" [buffer buffer-name "-" format-time-string "%Y-%m-%d" ".txt"] 4 (#$ . 11670)])
#@246 This function computes a short log file name.
In fact, it only uses the buffer name of the BUFFER argument, so
you can affect that using `rename-buffer' and the-like. This
function is a possible value for
`erc-generate-log-file-name-function'.
(defalias 'erc-generate-log-file-name-short #[(buffer &rest ignore) "\301!\302P\207" [buffer buffer-name ".txt"] 2 (#$ . 12051)])
#@205 Generates a log-file name in the way ERC always did it.
This results in a file name of the form #channel!nick@server:port.txt.
This function is a possible value for `erc-generate-log-file-name-function'.
(defalias 'erc-generate-log-file-name-long #[(buffer target nick server port) "\205 \305P \306\n\307 ;\203 \202 \247\205 \310 !\311\260 \312\f!)\207" [target nick server port file "!" "@" ":" number-to-string ".txt" convert-standard-filename] 7 (#$ . 12434)])
#@219 Generates a log-file name using the network name rather than server name.
This results in a file name of the form #channel!nick@network.txt.
This function is a possible value for `erc-generate-log-file-name-function'.
(defalias 'erc-generate-log-file-name-network #[(buffer target nick server port) "\305\306!\210\205 \307P \310r\nq\210\311 )\206 \312\260 \313\f!)\207" [target nick buffer server file require erc-networks "!" "@" erc-network-name ".txt" convert-standard-filename] 5 (#$ . 12914)])
#@418 Append BUFFER contents to the log file, if logging is enabled.
If BUFFER is not provided, current buffer is used.
Logging is enabled if `erc-logging-enabled' returns non-nil.
This is normally done on exit, to save the unsaved portion of the
buffer, since only the text that runs off the buffer limit is logged
automatically.
You can save every individual message by putting this function on
`erc-insert-post-hook'.
(defalias 'erc-save-buffer-in-logs #[(&optional buffer) "\204 p\306!\203\240 \307! \310 \212rq\210\214~\210\311
!\203\232
TV\203\232 \312
!T\312! \313!\203f { \314\315! rq\210\316\216!c\210 \317ed\f\310\320%\210-\202t \317\f\310\320%\210)* \203\221 \321 \203\221 \310 \322 \210)
d\323\223\210\324 \210\202\232
\312!S\323\223\210\325\323!\210.\310\207" [buffer erc-log-file-coding-system inhibit-clash-detection coding-system file erc-last-saved-position erc-logging-enabled erc-current-logfile t markerp marker-position functionp generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region nomessage interactive-p erase-buffer nil erc-display-prompt set-buffer-modified-p erc-insert-marker end start erc-log-filter-function text #1# coding-system-for-write erc-truncate-buffer-on-save inhibit-read-only] 6 (#$ . 13426) nil])
(provide 'erc-log)