From 502e44eabc79da191f0447f736172d956df7e796 Mon Sep 17 00:00:00 2001 From: Benjamin Slade Date: Thu, 20 Mar 2025 13:13:41 -0500 Subject: [PATCH 1/2] add option to make log/echo area quiet - if `erc-logger-quiet-log` set to `t`, then don't show "Added to..." messages in echo area or `*Messages*`. --- erc-logger.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/erc-logger.el b/erc-logger.el index 6acbe48..47e6ab3 100644 --- a/erc-logger.el +++ b/erc-logger.el @@ -49,13 +49,17 @@ :type 'string :group 'erc-logger) - (defcustom erc-logger-log-interval 10 "The interval (second) to run `erc-log-buffers' repeatedly." :type 'float :group 'erc-logger) +(defcustom erc-logger-quiet-log nil + "Silence echo area and `*Messages*' notifications about appending files." + :type 'boolean + :group 'erc-logger) + (defvar erc-logger-log-timer nil) (defvar erc-logger-log-date nil) (defvar erc-logger-log-todays-date nil) @@ -126,7 +130,9 @@ (setq current-message-point new-current-message-point))) (if (file-exists-p file-full-path) (when (not (= end-of-message-point current-message-point)) - (append-to-file current-message-point end-of-message-point file-full-path)) + (let ((inhibit-message (if erc-logger-quiet-log t inhibit-message)) + (message-log-max (if erc-logger-quiet-log nil message-log-max))) + (append-to-file current-message-point end-of-message-point file-full-path))) (erc-logger-write-file-immut file-full-path)) (when (not (= end-of-message-point current-message-point)) (puthash erc-buffer end-of-message-point erc-logger-irc-buffer-size-map))) From 269f0c1392ebee930d424cbd5f43d5a657f8b0db Mon Sep 17 00:00:00 2001 From: Benjamin Slade Date: Thu, 20 Mar 2025 13:17:06 -0500 Subject: [PATCH 2/2] (add note to README.md about customisation) --- README.md | 1 + 1 file changed, 1 insertion(+) diff --git a/README.md b/README.md index 69e7a2f..cc1d670 100644 --- a/README.md +++ b/README.md @@ -32,6 +32,7 @@ write the following config with any file name (eg. `.erc.emacs`) (setq erc-autojoin-channels-alist '(("libera.chat" "#c" "#c++" "#linux" "#lisp" "##c++" "#clasp" "#clojure" "#guile" "#vim" "#neovim" "#emacs" "#erc"))) +(setq erc-logger-quiet-log t) ;; if you don't want spammed with "Added to..." messages (erc-logger-log-start))))