Emacs의 디렉토리 / 하위 디렉토리에서 파일 내용을 재귀 적으로 검색 / grep하는 방법은 무엇입니까?

나는 꽤 오랫동안 Emacs를 사용하고 있으며 여전히 (프로젝트) 디렉토리 내에서 문자열을 (재귀 적으로) grep하는 가장 좋은 방법이 무엇인지 이해하지 못하고 결과를 dired 버퍼 또는 더 많은 것으로 표시합니다. 유용한 방법. 제발 깨달아주세요

글쎄, 원래 질문은 언급하지 않았으므로 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수년간 행복하게 사용 합니다. 사용 가능한 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을 만들어야합니다. 자세한 기술 정보는 https://www.gnu.org/software/emacs/manual/html_node/emacs/Directory-Variables.html 을 simple-project-root참조 하십시오.

솔루션 2의 코드는 단지 프로토 타입입니다. 내 실제 구현은 훨씬 더 복잡합니다. 보기 counsel-etags-grep에 https://github.com/redguardtoo/counsel-etags/blob/master/counsel-etags.el

요약:

이것이 내가 아는 최고의 두 가지 솔루션입니다.

다른 더 나은 솔루션이 존재하면 프로덕션 준비가 되려면 최소한 아래의 문제를 해결해야합니다.

• 키워드를 grep하는 방법 (예 : 선택한 지역에서 키워드 가져 오기)

• 키워드를 피하십시오

• 보다 효율적인 grep 프로그램이 존재하면이를 사용하거나 (ripgrep, the_silver_searcher / ag 등) 기본 grep을 대체해야합니다.

• 후보 창은 전체 화면을 사용해야하며 사용자는 대화식으로 후보를 필터링 할 수 있습니다 (그러므로 사람들이 아이비 또는 투구를 사용하는 이유)

• 후보 창에 상대 경로를 표시해야합니다

• 이전에 잘린 결과를 재사용 할 수 있습니다. 따라서 이전 결과를 저장해야합니다. 당신은 사용할 수 있습니다 ivy-resume에서 ivy또는 helm-resume에서helm

• 이전에 잘린 결과를 저장할 때 이전 결과의 컨텍스트도 저장해야합니다. 예를 들어 솔루션 2의 코드에는 default-directory컨텍스트가 있습니다. 자세한 내용은 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위의 기능과는 잘 예정대로거야 :)

다음은 디렉토리 및 서브 디렉토리에서 파일 내용 (검색 용어에 regexp 사용)을 재귀 적으로 파악하고 결과를 컨텍스트 전후에 표시하는 사용자 정의 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)))