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)
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 org-agenda-files)
andrea Crotti 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$"
>
>
> But it set
andrea Crotti 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 send replies to th
Benjamin Andresen in-ulm.de> writes:
>
> Hey Andrea,
>
> andrea Crotti 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/w
Hey Andrea,
andrea Crotti 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,
benny
__
