如何在Emacs的目录/子目录中递归搜索/ grep文件内容？

我使用Emacs已有一段时间了，但仍然不知为何无法（递归）grep（项目）目录中的字符串并将结果显示为Dired缓冲区或更多内容，这是最好的方法有用的方法。请赐教。

好吧，由于最初的问题没有提及rgrep，因此我将在此处指出。这是Emacs中已经内置的最简单的选项，我发现它对于大多数事情来说已经足够了。

从文档中

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

搜索仅限于与外壳模式文件FILES匹配的文件名。

所以，举例来说，搜索所有Python文件我的主目录下的用途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))))))))

您需要创建.dir-locals.el进行设置simple-project-root，有关技术细节，请参见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的关键字（例如，从选定区域获取关键字）

• 转义关键字

• 如果存在更有效的grep程序，则应使用它（ripgrep，the_silver_searcher / ag等），否则回退默认grep

• 候选窗口应使用整个屏幕宽度，并且用户可以交互过滤候选对象（这就是人们使用常春藤或头盔的原因）

• 我们应该在候选窗口中显示相对路径

• 能够重用以前的grepped结果。因此，应保存以前的结果。您可以使用ivy-resumefrom ivy或helm-resumefromhelm

• 保存先前的grepped结果时，也应保存先前结果的上下文。例如，在解决方案2的代码中default-directory是context。有关更多详细信息，请参见https://github.com/abo-abo/swiper/issues/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)))