Traverser une arborescence de répertoires

Question

J'essaie de parcourir un répertoire donné et de créer une liste de fichiers se terminant par .jpg.

(setq files (list)) 

(defun jpg-list(directory) 
    (dolist (node (directory-files directory t)) 
     (if (file-directory-p node)  
      (if (not 
      (string= (substring node (- (string-width node) 1)) ".")) 
      (jpg-list node)) 
    (if (string-match ".jpg" node) 
     (setq files (cons node files))))) 
    files) 

Je voudrais faire cela sans utiliser de variable externe (fichiers). Quelle est la manière idiomatique de le faire en elisp?

Answer 1

Voici ma solution fonctionnelle:

(defun jpg-list (dir) 
    (if (file-directory-p dir) 
     (append 
     (directory-files dir t ".jpg$") 
     (apply 'append (mapcar 'jpg-list (directory-files dir t "[^.]+")))))) 

Answer 2

Votre meilleur pari est d'utiliser l'interface 'directory-files complète et il suffit d'utiliser:

(directory-files directory t ".jpg$") 

La grande question était de savoir comment éviter la variable de haut niveau, qui est habituellement résolu par une déclaration 'let, par exemple

(defun jpg-list (directory) 
    (let ((files)) 
    ...do something with files... 
    files))