From 6273cdaded51bcad64dd0c2bb506899507d71bf8 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 1 Aug 2025 02:42:08 +0100 Subject: dirmon: list of roots --- lib/eos/jao-dirmon.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib') 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) -- cgit v1.2.3