Рекурсивный список всех файлов и подкаталогов

Есть ли способ, возможно, с помощью пакета, чтобы рекурсивно перечислить все файлы (с путями) и подкаталоги (или, по крайней мере, пустые подкаталоги, так как пути к непустым можно почерпнуть из путей файлы, содержащиеся в нем) текущего каталога?

Самое близкое, что я мог найти, - это projectile-find-fileфункция projectileпакета (или helm-projectile-find-fileфункция helm-projectileпакета), но, похоже, он не в состоянии перечислить пустые папки. Кроме того, кажется, что он работает только с Git и другими репозиториями контроля версий, но для этого ограничения может быть обходной путь.

Предполагая, что вы используете, ivyвы можете использовать эту функцию

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

Каталог-файлы рекурсивно

(Я думаю, что это было добавлено в Emacs 25)

вот ссылка на руководство: https://www.gnu.org/software/emacs/manual/html_node/elisp/Contents-of-Directories.html

Вернуть все файлы в каталоге, имена которых соответствуют регулярному выражению. Эта функция рекурсивно ищет в указанном каталоге и его подкаталогах файлы, базовые имена которых (т.е. без ведущих каталогов) соответствуют указанному регулярному выражению, и возвращает список абсолютных имен файлов соответствующих файлов (см. Абсолютные имена файлов) , Имена файлов возвращаются в порядке глубины, что означает, что файлы в некотором подкаталоге возвращаются перед файлами в его родительском каталоге. Кроме того, соответствующие файлы, найденные в каждом подкаталоге, сортируются в алфавитном порядке по их базовым именам. По умолчанию каталоги, чьи имена соответствуют регулярному выражению, в списке опущены, но если необязательный аргумент include-directoryies не равен nil, они включаются.

пример

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

Этот ответ предполагает, что вы хотите отобразить список имен файлов и каталогов вместо получения списка их в Лиспе.

Используйте стандартный Emacs команды find-dired, find-name-diredили find-grep-dired. Найденные имена файлов и папок отображаются в буфере режима Dired. (Вы можете использовать всю мощь Dired для работы над результатами.)

Если вы используете библиотеку, find-dired+.elто у вас есть расширенные версии этих стандартных команд Emacs, плюс у вас есть команда find-time-dired, которая находит файлы, которые новее или старше заданной отметки времени.

См. Https://github.com/technomancy/find-file-in-project.

Есть команды, чтобы найти файл или найти каталоги. Но не оба.

Если вы просто хотите перечислить все подкаталоги и файлы рекурсивно в одном буфере, есть две команды, встроенные в Emacs целую вечность:

1. M-x find-dired, Это зависит от инструмента CLI find. В Windows вам нужно установить Cygwin или MYSYS, который имеетfind

2. M-x find-lisp-find-dired, То же, что и find-diredнаписано на Лиспе. Таким образом, нет никакой зависимости от третьей стороны. Кроме того, он может распознать локаль из коробки. Но это медленнее, чемfind-dired

В этом ответе предполагается, что вы хотите получить список Lisp для имен файлов и dir, а не отображать их список.

Если вы используете библиотеку Dired +, тогда вы можете использовать функцию diredp-files-within. (Вам не нужно быть в буфере Dired, чтобы использовать его.)

Это работает с любой версией Emacs и является более общим, чем directory-files-recursively.

• Вы можете передать ему список файлов и директорий, и он действует рекурсивно в каждом из них.

• Или вы можете передать ему функцию, которая возвращает такой список.

  • Если для каталога, который обрабатывается, существует буфер Dired , то в этом буфере вызывается функция, возвращающая список включаемых файлов.

    Например, если функция включена, включаются dired-get-marked-files только отмеченные файлы и подкаталоги.

• Вы можете передать ему предикат, который должен удовлетворять каждый файл или каталог. Соответствие регулярному выражению, конечно, является одним из видов предикатов.

• Вы можете сказать, что не следует переходить по символическим ссылкам.

(defun my-dir-list (источник)
  ;;
  ;; Печать списка файлов в текущем буфере
  ;;
  ;; Не проверено, тип системы: GNU
  ;; Протестировано, системный тип: windows-nt
  ;;
  (интерактивное "sDirectory:")
  (пусть ((n 0)
    (l-file-dir (и (cd source) (directory-files-and-attribute "./")))
    (dir-list '())
    (file-list '())
    )
    (princ (формат "% s \ n" default-directory) (текущий буфер))
    (пока l-file-dir
      (если (nth 1 (car l-file-dir))
      (setq n (1+ n)
        dir-list (cons ((лямбда-источник)
                  (и (нет (string-prefix-p "." (источник кода))) source))
                (car l-file-dir)) dir-list)
        )
    (princ (формат "% s \ n" (concat default-directory
                      (и (строковое совпадение "\\. [0-9 | Az]" (caar l-file-dir))
                       (caar l-file-dir)))) (текущий буфер))
    )
      (setq l-file-dir (cdr l-file-dir))
      )
    (while (caar dir-list)
      (setq dir-list (cdr dir-list))
      (компакт диск "..")
      )
    )
  'Ok
  )