summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-03-16 01:05:24 +0000
committerjao <jao@gnu.org>2022-03-16 01:05:24 +0000
commit24823ba43c3b1cbc7330d1aa2f140154f98987b0 (patch)
tree898a16f1f1a0e17d0592be17b9d965beb6e4c739
parent8ea064a0692e66ffb5e569a0305e133b3890e259 (diff)
downloadelibs-24823ba43c3b1cbc7330d1aa2f140154f98987b0.tar.gz
elibs-24823ba43c3b1cbc7330d1aa2f140154f98987b0.tar.bz2
dirmon nits
-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)