diff options
| author | jao <jao@gnu.org> | 2022-06-10 01:55:16 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-06-10 01:55:16 +0100 |
| commit | dee619824a9d5286be5b6c27b3fa16cf4142385f (patch) | |
| tree | 8e2907dde3b112fc7b7d0e464cc70fd5b3ed2c99 /lib | |
| parent | 7f27efc5baaaf5ab44eecd1998245000183490a2 (diff) | |
| download | elibs-dee619824a9d5286be5b6c27b3fa16cf4142385f.tar.gz elibs-dee619824a9d5286be5b6c27b3fa16cf4142385f.tar.bz2 | |
jao-dirmon tweaks
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/eos/jao-dirmon.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/eos/jao-dirmon.el b/lib/eos/jao-dirmon.el index 4fb8609..894d740 100644 --- a/lib/eos/jao-dirmon.el +++ b/lib/eos/jao-dirmon.el @@ -34,11 +34,11 @@ (defun jao-dirmon-sizes () (mapcar (lambda (f) - (let ((x (split-string (jao-shell-string "du -s" f)))) - (cons (cadr x) (string-to-number (car x))))) + (let ((x (split-string (jao-shell-string "du -b -s" f)))) + (cons (cadr x) (/ (string-to-number (car x)) 1024 1024)))) (jao-dirmon-dirs))) -(defvar jao-dirmon-threshold 100000) +(defvar jao-dirmon-threshold 100) (defvar jao-dirmon-last-delta nil) ;;;###autoload @@ -49,10 +49,10 @@ (high ())) (dolist (c current) (let ((d (- (cdr c) (alist-get (car c) old 0 nil #'string=)))) - (when (> d jao-dirmon-threshold) + (when (> d jao-dirmon-threshold) (push c high)))) (setq jao-dirmon-last-delta high) - (let ((prompt (format"High deltas: %s. Save state?" 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)) |