Liste récursivement tous les fichiers et sous-répertoires

Existe-t-il un moyen, éventuellement en utilisant un package, de lister récursivement tous les fichiers (avec des chemins) et sous-répertoires (ou au moins les sous-répertoires vides , puisque les chemins vers les non-vides peuvent être glanés à partir des chemins de les fichiers qui y sont contenus) du répertoire courant?

Le plus proche que j'ai pu trouver est la projectile-find-filefonction du projectilepackage (alternativement, la helm-projectile-find-filefonction du helm-projectilepackage), mais il ne semble pas pouvoir lister les dossiers vides. En outre, il semble fonctionner uniquement avec Git et d'autres référentiels de contrôle de version, mais il peut y avoir une solution pour cette limitation.

En supposant que vous utilisez, ivyvous pouvez utiliser cette fonction

    (defun fhd/counsel-everything ()
      "list everything recursively"
      (interactive)
      (let* ((cands (split-string
                     (shell-command-to-string "find .") "\n" t)))
        (ivy-read "File: " cands
                  :action #'find-file
                  :caller 'fhd/counsel-everything)))

répertoire-fichiers-récursivement

(Je pense que cela a été ajouté dans Emacs 25)

voici le lien vers le manuel: https://www.gnu.org/software/emacs/manual/html_node/elisp/Contents-of-Directories.html

Renvoie tous les fichiers sous le répertoire dont les noms correspondent à regexp. Cette fonction recherche récursivement dans le répertoire spécifié et ses sous-répertoires les fichiers dont les noms de base (c'est-à-dire sans les répertoires principaux) correspondent à l'expression rationnelle spécifiée et renvoie une liste des noms de fichiers absolus des fichiers correspondants (voir noms de fichiers absolus) . Les noms de fichiers sont renvoyés par ordre de priorité, ce qui signifie que les fichiers d'un sous-répertoire sont retournés avant les fichiers de son répertoire parent. De plus, les fichiers correspondants trouvés dans chaque sous-répertoire sont triés par ordre alphabétique selon leurs noms de base. Par défaut, les répertoires dont les noms correspondent à regexp sont omis de la liste, mais si l'argument facultatif include-répertoires n'est pas nul, ils sont inclus.

Exemple

(directory-files-recursively default-directory "")

Cette réponse suppose que vous souhaitez afficher une liste des noms de fichiers et de répertoires, au lieu d'en obtenir une liste Lisp.

Utilisation commandes standard Emacs find-dired, find-name-diredou find-grep-dired. Les noms de fichiers et de répertoires trouvés sont affichés dans un tampon en mode fatigué. (Vous pouvez utiliser toute la puissance de Dired pour travailler sur les résultats.)

Si vous utilisez la bibliothèque, find-dired+.elvous avez des versions améliorées de ces commandes Emacs standard, en plus vous avez une commande find-time-dired, qui trouve des fichiers plus récents ou plus anciens qu'un horodatage donné.

Voir https://github.com/technomancy/find-file-in-project

Il existe des commandes pour rechercher des fichiers ou rechercher des répertoires. Mais pas les deux.

Si vous souhaitez simplement répertorier tous les sous-répertoires et fichiers de manière récursive dans un seul tampon, il existe deux commandes intégrées dans Emacs pour les âges:

1. M-x find-dired. Cela dépend de l'outil CLI find. Sous Windows, vous devez installer Cygwin ou MYSYS qui afind

2. M-x find-lisp-find-dired. Identique à find-diredmais écrit en Lisp. Il n'y a donc pas de dépendance de tiers. En outre, il peut reconnaître les paramètres régionaux hors de la boîte. Mais c'est plus lent quefind-dired

Cette réponse suppose que vous souhaitez obtenir une liste Lisp des noms de fichiers et de répertoires, au lieu d'en afficher la liste.

Si vous utilisez la bibliothèque Dired +, vous pouvez utiliser la fonction diredp-files-within. (Vous n'avez pas besoin d'être dans un tampon Dired pour l'utiliser.)

Cela fonctionne avec n'importe quelle version d'Emacs, et c'est plus général que directory-files-recursively.

• Vous pouvez lui passer une liste de fichiers et de répertoires, et il agit récursivement dans chacun d'eux.

• Ou vous pouvez lui passer une fonction qui renvoie une telle liste.

  • S'il existe un tampon Dired pour un répertoire qui est traité, la fonction est invoquée dans ce tampon pour renvoyer la liste des fichiers à inclure.

    Par exemple, si la fonction est dired-get-marked-files alors, seuls les fichiers et sous-répertoires marqués sont inclus.

• Vous pouvez lui passer un prédicat que chaque fichier ou répertoire doit satisfaire. La correspondance d'expression régulière est bien sûr un type de prédicat.

• Vous pouvez lui dire de ne pas suivre les liens symboliques.

(defun my-dir-list (source)
  ;;
  ;; Imprimer les fichiers de liste dans le tampon actuel
  ;;
  ;; Non testé, type de système: gnu
  ;; Testé, type de système: windows-nt
  ;;
  ("sDirectory:" interactif)
  (soit ((n 0)
    (l-file-dir (and (cd source) (directory-files-and-attributes "./"))))
    (liste-dir '())
    (liste de fichiers '())
    )
    (princ (format "% s \ n" répertoire-par défaut) (tampon-actuel))
    (tandis que l-file-dir
      (if (nth 1 (car l-file-dir))
      (setq n (1+ n)
        dir-list (cons ((lambda (source)
                  (et (pas (string-prefix-p "." (car source))) source))
                (car l-file-dir)) dir-list)
        )
    (princ (format "% s \ n" (concat default-directory
                      (et (correspondance de chaîne "\\. [0-9 | Az]" (caar l-file-dir))
                       (caar l-file-dir)))) (current-buffer))
    )
      (setq l-file-dir (cdr l-file-dir))
      )
    (while (caar dir-list)
      (setq dir-list (cdr dir-list))
      (cd "..")
      )
    )
  'D'accord
  )