dirmon: list of roots

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)