This version will accept wildcards and recurse one directory level level down
(setq org-agenda-directories '(~/org ~/1_PROJECT/*))
(setq org-agenda-files '())
(dolist (d1 org-agenda-directories)
(dolist (d2 (file-expand-wildcards (expand-file-name d1)))
(if (file-directory-p d2)
Hey Andrea,
andrea Crotti andrea.crott...@gmail.com writes:
I didn't find any function in elisp, maybe it would be better
to get a list of org-files with an external command (python or shell script),
what do you think?
http://orgmode.org/worg/org-faq.php#set-agenda-files-recursively
br,
Benjamin Andresen benny at in-ulm.de writes:
Hey Andrea,
andrea Crotti andrea.crotti.0 at gmail.com writes:
I didn't find any function in elisp, maybe it would be better
to get a list of org-files with an external command (python or shell
script),
what do you think?
andrea Crotti andrea.crotti.0 at gmail.com writes:
(dolist ((d org-directories))
The loop is not run, because there are too many parens. Try this instead:
(dolist (d org-directories)
___
Emacs-orgmode mailing list
Remember: use `Reply All' to
andrea Crotti andrea.crott...@gmail.com wrote:
I tried this because I have more base directories.
(setq org-directories '(~/org ~/uni))
(setq org-agenda-files ())
(dolist ((d org-directories))
(setq org-agenda-files
(append org-agenda-files (find-lisp-find-files d \.org$
Hi,
if you have traverselisp.el, you can use:
,
| (dolist (d org-directories)
| (traverse-walk-directory d :file-fn #'(lambda (x)
| (when (string= (file-name-extension
x) org)
| (push x
