[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: Fast traversing directories
From: |
Thierry Volpiatto |
Subject: |
[Orgmode] Re: Fast traversing directories |
Date: |
Sat, 31 Oct 2009 20:16:23 +0100 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) Emacs/23.1.50 (gnu/linux) |
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)))))
`----
you can get traverselisp.el here:
http://www.emacswiki.org/cgi-bin/emacs/traverselisp.el
or here: (hg clone)
http://mercurial.intuxication.org/hg/traverselisp
Nick Dokos <address@hidden> writes:
> andrea Crotti <address@hidden> 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 sets org-agenda-files to nil...
>
> Too many parens: try
>
> (dolist (d org-directories)
> (setq org-agenda-files
> (append org-agenda-files (find-lisp-find-files d "\.org$"))))
>
> Nick
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
--
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France