From 24823ba43c3b1cbc7330d1aa2f140154f98987b0 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 16 Mar 2022 01:05:24 +0000 Subject: dirmon nits --- lib/eos/jao-dirmon.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lib') diff --git a/lib/eos/jao-dirmon.el b/lib/eos/jao-dirmon.el index e2778bb..2053edb 100644 --- a/lib/eos/jao-dirmon.el +++ b/lib/eos/jao-dirmon.el @@ -42,8 +42,8 @@ (defvar jao-dirmon-last-delta nil) ;;;###autoload -(defun jao-dirmon-report (&optional remember) - (interactive "P") +(defun jao-dirmon-report () + (interactive) (let ((old (multisession-value jao-dirmon-last)) (current (jao-dirmon-sizes)) (high ())) @@ -51,9 +51,10 @@ (let ((d (- (cdr c) (alist-get (car c) old 0 nil #'string=)))) (when (> d jao-dirmon-threshold) (push c high)))) - (when remember - (setf (multisession-value jao-dirmon-last) current)) - (message "High deltas: %s" (setq jao-dirmon-last-delta high)) + (setq jao-dirmon-last-delta high) + (let ((prompt (format"High deltas: %s. Save state?" high))) + (when (y-or-n-p prompt) + (setf (multisession-value jao-dirmon-last) current))) jao-dirmon-last-delta)) (provide 'jao-dirmon) -- cgit v1.2.3