dirmon nits

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)