Daftar semua file dan sub-direktori secara rekursif

Apakah ada cara, mungkin menggunakan paket, untuk secara rekursif mendaftarkan semua file (dengan path) dan sub-direktori (atau setidaknya sub-direktori kosong , karena path ke yang non-kosong dapat diperoleh dari jalur file yang terkandung di dalamnya) dari direktori saat ini?

Yang paling dekat yang bisa saya temukan adalah projectile-find-filefungsi dari projectilepaket (sebagai alternatif, helm-projectile-find-filefungsi dari helm-projectilepaket), tetapi sepertinya tidak dapat membuat daftar folder kosong. Selain itu, tampaknya hanya berfungsi dengan Git dan repositori kontrol versi lain, tetapi mungkin ada solusi untuk batasan ini.

Dengan asumsi Anda menggunakan ivyAnda dapat menggunakan fungsi ini

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

direktori-file-secara rekursif

(Saya pikir ini ditambahkan dalam Emacs 25)

inilah tautan ke manual: https://www.gnu.org/software/emacs/manual/html_node/elisp/Contents-of-Directories.html

Kembalikan semua file di bawah direktori yang namanya cocok dengan regexp. Fungsi ini mencari direktori yang ditentukan dan sub-direktori, secara rekursif, untuk file yang nama dasarnya (yaitu, tanpa direktori terkemuka) cocok dengan regexp yang ditentukan, dan mengembalikan daftar nama file absolut dari file yang cocok (lihat nama file absolut) . Nama file dikembalikan dalam urutan pertama, artinya file dalam beberapa sub direktori dikembalikan sebelum file dalam direktori induknya. Selain itu, file-file yang cocok yang ditemukan di setiap subdirektori diurutkan secara alfabet berdasarkan nama dasarnya. Secara default, direktori yang namanya cocok dengan regexp dihilangkan dari daftar, tetapi jika argumen opsional termasuk-direktori adalah nihil, mereka dimasukkan.

Contoh

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

Jawaban ini mengasumsikan bahwa Anda ingin menampilkan daftar file dan nama dir, alih-alih mendapatkan daftar Lisp dari mereka.

Gunakan standar Emacs perintah find-dired, find-name-diredatau find-grep-dired. File dan nama dir yang ditemukan ditampilkan dalam buffer mode Dired. (Anda dapat menggunakan semua kekuatan Dired untuk mengerjakan hasilnya.)

Jika Anda menggunakan pustaka find-dired+.elmaka Anda memiliki versi yang disempurnakan dari perintah standar Emacs itu, lebih baik Anda memiliki perintah find-time-dired, yang menemukan file yang lebih baru atau lebih tua dari cap waktu yang diberikan.

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

Ada perintah untuk mencari file atau mencari direktori. Tapi tidak keduanya.

Jika Anda hanya ingin membuat daftar semua sub-direktori dan file secara rekursif dalam satu buffer, ada dua perintah yang dibangun di Emacs untuk usia:

1. M-x find-dired. Itu tergantung pada alat CLI find. Di Windows, Anda perlu menginstal Cygwin atau MYSYS yang telahfind

2. M-x find-lisp-find-dired. Sama seperti find-diredtetapi ditulis dalam Lisp. Jadi tidak ada ketergantungan pihak ketiga. Selain itu, dapat mengenali lokal di luar kotak. Tapi lebih lambat dari itufind-dired

Jawaban ini mengasumsikan bahwa Anda ingin mendapatkan daftar file Lisp dan nama dir, alih-alih menampilkan daftar mereka.

Jika Anda menggunakan library Dired + maka Anda dapat menggunakan fungsi diredp-files-within. (Anda tidak perlu berada dalam buffer Dired untuk menggunakannya.)

Ini berfungsi dengan versi Emacs apa pun, dan ini lebih umum daripada directory-files-recursively.

• Anda dapat memberikan daftar file dan direktori, dan itu bertindak secara rekursif di masing-masing.

• Atau Anda dapat melewatinya fungsi yang mengembalikan daftar tersebut.

  • Jika ada buffer Dired untuk direktori yang diproses maka fungsi dipanggil dalam buffer itu untuk mengembalikan daftar file yang akan disertakan.

    Misalnya, jika fungsinya dired-get-marked-files maka hanya file dan subdirektori yang ditandai yang disertakan.

• Anda dapat memberikannya predikat yang harus dipenuhi oleh setiap file atau direktori. Pencocokan Regexp tentu saja merupakan salah satu jenis predikat.

• Anda dapat mengatakan itu untuk tidak mengikuti tautan simbolik.

(menolak daftar-dir-saya (sumber)
  ;;
  ;; Cetak daftar file dalam buffer saat ini
  ;;
  ;; Tidak diuji, tipe sistem: gnu
  ;; Diuji, tipe sistem: windows-nt
  ;;
  (interaktif "sDirectory:")
  (biarkan ((n 0))
    (l-file-dir (dan (sumber cd) (direktori-file-dan-atribut "./")))
    (daftar-dir '())
    (daftar file '())
    )
    (princ (format "% s \ n" direktori default) (buffer saat ini))
    (sementara l-file-dir
      (if (nth 1 (car l-file-dir))
      (setq n (1+ n)
        daftar dir (kontra ((lambda (sumber))
                  (dan (bukan (string-awalan-p "." (sumber mobil))) sumber))
                (car l-file-dir)) dir-list)
        )
    (princ (format "% s \ n" (direktori default concat
                      (dan (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 daftar-dir (daftar-cdr daftar))
      (cd "..")
      )
    )
  'baik
  )