Enumere recursivamente todos los archivos y subdirectorios

¿Hay alguna manera, posiblemente usando un paquete, para enumerar recursivamente todos los archivos (con rutas) y subdirectorios (o al menos los subdirectorios vacíos , ya que las rutas a los no vacíos se pueden extraer de las rutas de los archivos que contiene) del directorio actual?

Lo más cercano que pude encontrar es la projectile-find-filefunción del projectilepaquete (alternativamente, la helm-projectile-find-filefunción del helm-projectilepaquete), pero no parece ser capaz de enumerar carpetas vacías. Además, parece funcionar solo con Git y otros repositorios de control de versiones, pero puede haber una solución para esta limitación.

Suponiendo que use ivy, puede usar esta función

    (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)))

directorio-archivos-recursivamente

(Creo que esto se agregó en Emacs 25)

Aquí está el enlace al manual: https://www.gnu.org/software/emacs/manual/html_node/elisp/Contents-of-Directories.html

Devuelve todos los archivos en el directorio cuyos nombres coinciden con regexp. Esta función busca en el directorio especificado y sus subdirectorios, recursivamente, archivos cuyos nombres básicos (es decir, sin los directorios iniciales) coincidan con la expresión regular especificada, y devuelve una lista de los nombres absolutos de los archivos coincidentes (ver nombres absolutos de archivo) . Los nombres de los archivos se devuelven en primer orden en profundidad, lo que significa que los archivos en algún subdirectorio se devuelven antes que los archivos en su directorio principal. Además, los archivos coincidentes encontrados en cada subdirectorio se ordenan alfabéticamente por sus nombres de base. De manera predeterminada, los directorios cuyos nombres coinciden con regexp se omiten de la lista, pero si el argumento opcional include-directorios es no nulo, se incluyen.

Ejemplo

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

Esta respuesta supone que desea mostrar una lista de los nombres de archivo y directorio, en lugar de obtener una lista Lisp de ellos.

Utilice los comandos estándar de Emacs find-dired, find-name-diredo find-grep-dired. El archivo encontrado y los nombres de directorio se muestran en un búfer en modo Dired. (Puede poner todo el poder de Dired para trabajar en los resultados).

Si usa la biblioteca, find-dired+.elentonces tiene versiones mejoradas de esos comandos estándar de Emacs, además tiene un comando find-time-dired, que encuentra archivos que son más nuevos o más antiguos que una marca de tiempo dada.

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

Hay comandos para buscar archivos o buscar directorios. Pero no ambos.

Si solo desea enumerar todos los subdirectorios y archivos de forma recursiva en un búfer, hay dos comandos integrados en Emacs para edades:

1. M-x find-dired. Depende de la herramienta CLI find. En Windows, necesita instalar Cygwin o MYSYS que tienefind

2. M-x find-lisp-find-dired. Igual que find-diredpero escrito en Lisp. Por lo tanto, no hay dependencia de terceros. Además, puede reconocer la configuración regional fuera de la caja. Pero es más lento quefind-dired

Esta respuesta supone que desea obtener una lista Lisp de los nombres de archivo y directorio, en lugar de mostrar una lista de ellos.

Si usa la biblioteca Dired + , puede usar la función diredp-files-within. (No necesita estar en un búfer Dired para usarlo).

Esto funciona con cualquier versión de Emacs, y es más general que directory-files-recursively.

• Puede pasarle una lista de archivos y directorios, y actúa de forma recursiva en cada uno de ellos.

• O puede pasarle una función que devuelva dicha lista.

  • Si hay un búfer Dired para un directorio que se procesa, la función se invoca en ese búfer para devolver la lista de archivos a incluir.

    Por ejemplo, si la función es dired-get-marked-files solo se incluyen los archivos y subdirectorios marcados .

• Puede pasarle un predicado que cada archivo o directorio debe satisfacer. La coincidencia de expresiones regulares es, por supuesto, un tipo de predicado.

• Puedes decirle que no siga enlaces simbólicos.

(defun my-dir-list (fuente)
  ;;
  ;; Imprimir archivos de lista en el búfer actual
  ;;
  ;; No probado, tipo de sistema: gnu
  ;; Probado, tipo de sistema: windows-nt
  ;;
  (interactivo "sDirectory:")
  (let ((n 0)
    (l-file-dir (y (cd source) (directorio-archivos-y-atributos "./")))
    (dir-list '())
    (lista de archivos '())
    )
    (princ (formato "% s \ n" directorio predeterminado) (actual-búfer))
    (mientras que l-file-dir
      (if (nth 1 (car l-file-dir))
      (setq n (1+ n)
        dir-list (cons ((lambda (fuente)
                  (y (no (string-prefix-p "." (fuente del automóvil))) fuente))
                (auto l-file-dir)) dir-list)
        )
    (princ (formato "% s \ n" (directorio predeterminado de concat
                      (y (string-match "\\. [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))
      (discos compactos "..")
      )
    )
  'Okay
  )