Fast traversing directories

Fast traversing directories

[andrea Crotti]

Well I would like to have simply all the org files
I produce wherever in my agenda.

I started to write something like

(dolist (x (directory-files "~/uni/" t))
  (if (file-directory-p x)
      (dolist (subject (directory-files x t))
	(if (file-directory-p subject)
	    (setq org-agenda-files
		  (append org-agenda-files (directory-files subject t ".org$" t)))))))

but the problem is that it only goes two levels
and I guess it could be very slow.

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?

I don't like the solution of setting them by hand, I would like to set
the upper level directory and make it searches inside it automatically...

How do you manage your org files?

Re: Fast traversing directories

[Benjamin Andresen]

Hey Andrea,

andrea Crotti <andrea.crotti.0@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,
benny

Re: Fast traversing directories

[andrea Crotti]

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?
> 
> http://orgmode.org/worg/org-faq.php#set-agenda-files-recursively
> 
> br,
> benny
> 
>
That's really great!

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...
Should I use maybe concat and some sort of mapping (for more elegance?)

Re: Fast traversing directories

[PT]

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)

Re: Re: Fast traversing directories

[Nick Dokos]

andrea Crotti <andrea.crotti.0@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$"))))
> 
> 
> 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

Re: Fast traversing directories

[Thierry Volpiatto]

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 <nicholas.dokos@hp.com> writes:

> andrea Crotti <andrea.crotti.0@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$"))))
>> 
>> 
>> 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.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>

-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France

Re: Re: Fast traversing directories

[Tim O'Callaghan]

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)
        (dolist (f (directory-files d2 t ".org$" t))
          (push f org-agenda-files)))))
----

Hope it helps.

Tim.

2009/10/31 Thierry Volpiatto <thierry.volpiatto@gmail.com>:
> 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 <nicholas.dokos@hp.com> writes:
>
>> andrea Crotti <andrea.crotti.0@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$"))))
>>>
>>>
>>> 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.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>
> --
> A + Thierry Volpiatto
> Location: Saint-Cyr-Sur-Mer - France
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>