[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] How to let Org Agenda search all files in a directory *recursive
From: |
Nicolas Richard |
Subject: |
Re: [O] How to let Org Agenda search all files in a directory *recursively* ? |
Date: |
Thu, 27 Jun 2013 16:32:27 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
chris <address@hidden> writes:
> How to Let [C-c a] to search over all files in a directory *recursively* ?
AFAIK, there's no built in way.
Applying the following patch to the function org-agenda-files gets you
there, but it's not clean at all, and certainly very unefficient :
Modified lisp/org.el
diff --git a/lisp/org.el b/lisp/org.el
index 7fd1576..0068c49 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -17797,8 +17797,7 @@ used by the agenda files. If ARCHIVE is `ifmode', do
this only if
(setq files (apply 'append
(mapcar (lambda (f)
(if (file-directory-p f)
- (directory-files
- f t org-agenda-file-regexp)
+ (find-lisp-find-files f
org-agenda-file-regexp)
(list f)))
files)))
(when org-agenda-skip-unavailable-files
Also it might be faster to rely on an external "find" tool but that requires
modifying the regexp (-regex applies to whole path).
HTH,
--
N.