summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/eos/jao-dirmon.el11
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)