diff options
| author | jao <jao@gnu.org> | 2025-08-01 02:42:08 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-08-01 02:42:08 +0100 |
| commit | 6273cdaded51bcad64dd0c2bb506899507d71bf8 (patch) | |
| tree | 16fd5ed70144f779fd09ccfdede44ba15e5bbd94 /lib | |
| parent | 0c9f29e8f39287ccc5f4f44be271a413e02ab800 (diff) | |
| download | elibs-6273cdaded51bcad64dd0c2bb506899507d71bf8.tar.gz elibs-6273cdaded51bcad64dd0c2bb506899507d71bf8.tar.bz2 | |
dirmon: list of roots
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/eos/jao-dirmon.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/eos/jao-dirmon.el b/lib/eos/jao-dirmon.el index 117da85..6a897d3 100644 --- a/lib/eos/jao-dirmon.el +++ b/lib/eos/jao-dirmon.el @@ -30,8 +30,13 @@ (define-multisession-variable jao-dirmon-last '()) +(defvar jao-dirmon-roots '("/var/local" "~")) + (defun jao-dirmon-dirs () - (jao-shell-cmd-lines "find ~ -mindepth 2 -maxdepth 3 -type d")) + (mapcan (lambda (d) + (jao-shell-cmd-lines + (format "find %s -mindepth 2 -maxdepth 3 -type d" d))) + jao-dirmon-roots)) (defun jao-dirmon-sizes () (mapcar (lambda (f) |