Як рекурсивно шукати / grep вміст файлів у каталозі / підкаталогах у Emacs?

Я використовую Emacs досить довгий час, і я все ще якимось чином не розумію, який найкращий спосіб (рекурсивно) схопити рядок у каталозі (project) і отримати результати, представлені або як переповнений буфер, або в деяких навіть більше корисний спосіб. Будь ласка, просвіти мене.

Ну, оскільки оригінальне запитання не згадується rgrep, я продовжу тут і вказую його. Це найпростіший варіант, вже вбудований в Emacs, і я виявив, що його більш ніж достатньо для більшості речей.

З документації,

Recursively grep for REGEXP in FILES in directory tree rooted at DIR.

Пошук обмежується іменами файлів, що відповідають шаблону оболонки FILES.

Так, наприклад, щоб знайти всі файли пітона під моїй домашній директорії для використання some_function, я б назвав його some_function, *.py, в ~/якості аргументів. Результати відображаються в новому буфері.

Я із задоволенням використовую M-x find-grep-diredроками. Він повертає результати у вигляді рознесеного буфера, який ви могли б використовувати.

Рішення 1 (найкраще рішення):

Встановіть консультацію ( https://github.com/abo-abo/swiper/blob/master/counsel.el )

Потім M-x counsel-git-grep.

Не потрібно налаштовувати (git знає корінь проекту та файли, які потрібно виключити). І те, git grepі counselефективно.

Проектом потрібно керувати git.

адвокат вимагає режиму плюща.

Рішення 2:

Це рішення використовує grep і працює над будь-яким проектом. Він поступається Рішенню 1, оскільки він повільніше і потребує налаштування вручну. Він також базується на режимі плюща.

(defvar simple-project-root "~/.emacs.d")
(defun simple-grep ()
  (interactive)
  (unless (featurep 'ivy)
    (require 'ivy))
  (let* ((default-directory (file-name-as-directory simple-project-root))
         (keyword (read-string "Keyword:")))
    (ivy-read (format "Grep at %s:" simple-project-root)
              (split-string (shell-command-to-string (format "grep -rsnI %s ." keyword)) "\n" t)
              :action (lambda (val)
                        (let* ((lst (split-string val ":"))
                               (linenum (string-to-number (cadr lst))))
                          ;; open file
                          (find-file (car lst))
                          ;; goto line if line number exists
                          (when (and linenum (> linenum 0))
                            (goto-char (point-min))
                            (forward-line (1- linenum))))))))

Щоб налаштувати simple-project-root, потрібно створити .dir-locals.el , див. Https://www.gnu.org/software/emacs/manual/html_node/emacs/Directory-Variables.html для отримання технічних деталей

Код у рішенні 2 - лише прототип. Моя реальна реалізація набагато складніша. Дивіться counsel-etags-grepна https://github.com/redguardtoo/counsel-etags/blob/master/counsel-etags.el

Підсумок:

Це найкращі два рішення, які я знаю.

Якщо існують будь-які інші кращі рішення, їм потрібно принаймні вирішити проблеми нижче, щоб бути готовими до виробництва,

• як отримати ключове слово для вимкнення (наприклад, отримати ключове слово з вибраного регіону)

• уникнути ключового слова

• якщо існує більш ефективна програма grep, ми повинні використовувати її (ripgrep, the_silver_searcher / ag, ... і т.д.), або інший запасний варіант grep за замовчуванням

• вікно кандидата має використовувати повну ширину екрану, і користувачі можуть інтерактивно фільтрувати кандидатів (саме тому люди використовують плющ або кермо)

• нам слід показати відносний шлях у вікні кандидата

• можливість повторного використання попереднього результату. Тож попередній результат слід зберегти. Ви можете використовувати ivy-resumeз ivyабо helm-resumeвідhelm

• Коли ви зберігаєте попередній вилучений результат, контекст попереднього результату також повинен бути збережений. Наприклад, у коді рішення 2. default-directoryє контекст. Дивіться https://github.com/abo-abo/swiper/isissue/591 для отримання більш детальної інформації.

• Необхідно використовувати розширений регулярний вираз, оскільки він простіший і його вже використовує counsel-git-grepthe_silver_searcher / ag.

Я хотів би додати ще одне рішення до рішення @chen bin, яке також використовує counsel(але для цього вам не потрібно підтримувати проект git).

Потрібно встановити ag (срібний пошук) і counselнадає команду, counsel-agяка шукає поточний каталог для введеного рядка.

Якщо ви хочете здійснити пошук в рамках проекту (не тільки в поточній робочій директорії), додайте це до свого .emacs: -

  (defun rag/counsel-ag-project-at-point ()
    "use counsel ag to search for the word at point in the project"
    (interactive)
    (counsel-ag (thing-at-point 'symbol) (projectile-project-root)))

Ця функція використовуватиме agдля рекурсивного пошуку кореневого каталогу проекту.

Редагувати : вищевказана функція за замовчуванням символу в точці пошуку. Якщо вам не подобається така поведінка, замініть (thing-at-point 'symbol)на nil. І якщо ви хочете, щоб результати пошуку були у власній буферній пресіC-c C-o

Edit2 : якщо ви ripgrepвстановили, ви можете замінити counsel-agз counsel-rgв наведеній вище функції , і це буде так само , як нормально :)

Ось приклад спеціальної функції grep, яка рекурсивно збирає вміст файлу (використовуючи повторне вираження для пошукового терміна) у каталозі та його підкаталогах та відображає результати з рядками контексту до та після. Вбудовані compile.elта grep.elбібліотеки передбачають кілька методів переходу до місця у файлі, що містить результати пошуку. Не потрібно встановлювати нічого іншого, щоб цей приклад працював - все, що потрібно, - це повна версія Emacs та комп'ютер, на якому grepвстановлена ​​утиліта. Змінна grep-programможе бути налаштована так, щоб вона вказувала на певне місце grepутиліти, якщо за замовчуванням недостатньо.

(defun recursive-grep ()
"Recursively grep file contents.  `i` case insensitive; `n` print line number;
`I` ignore binary files; `E` extended regular expressions; `r` recursive"
(interactive)
  (let* ((search-term (read-string "regex:  "))
         (search-path
           (directory-file-name (expand-file-name (read-directory-name "directory:  "))))
         (default-directory (file-name-as-directory search-path))
         (grep-command
           (concat
             grep-program
             " "
             "-inIEr --color=always -C2"
             " "
             search-term
             " "
             search-path)))
    (compilation-start grep-command 'grep-mode (lambda (mode) "*grep*") nil)))