diff options
| -rw-r--r-- | lib/eos/jao-dirmon.el | 11 |
1 files changed, 6 insertions, 5 deletions
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) |