Comment rechercher récursivement le contenu d'un fichier / grep dans un répertoire / sous-répertoires dans Emacs?

J'utilise Emacs depuis un certain temps et je n'arrive toujours pas à comprendre quelle est la meilleure façon de greper (récursivement) une chaîne dans un répertoire (projet) et d'obtenir les résultats présentés soit sous forme de tampon dired, soit dans certains encore plus manière utile. Veuillez m'éclairer.

Eh bien, puisque la question d'origine ne mentionne pas rgrep, je vais aller de l'avant et le signaler ici. C'est l'option la plus simple déjà intégrée à Emacs, et je l'ai trouvée plus que suffisante pour la plupart des choses.

De la documentation,

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

La recherche est limitée aux noms de fichiers correspondant au fichier shell.

Ainsi, par exemple, pour rechercher tous les fichiers python sous mon répertoire pour des utilisations de some_function, je l'appellerais avec some_function, *.py, ~/comme les arguments. Les résultats sont affichés dans un nouveau tampon.

J'utilise avec plaisir M-x find-grep-direddepuis des années. Il renvoie les résultats sous forme de tampon dirigé, que vous pouvez utiliser.

Solution 1 (meilleure solution):

Installer l'avocat ( https://github.com/abo-abo/swiper/blob/master/counsel.el )

Alors M-x counsel-git-grep.

Aucune configuration requise (git connaît la racine du projet et les fichiers à exclure). Les deux git grepet counselest efficace.

Le projet doit être géré par git.

l'avocat requiert le mode lierre.

Solution 2:

Cette solution utilise grep et fonctionne sur n'importe quel projet. Elle est inférieure à la Solution 1 car elle est plus lente et nécessite une configuration manuelle. Il est également basé sur le mode lierre.

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

Vous devez créer .dir-locals.el pour l'installation simple-project-root, voir https://www.gnu.org/software/emacs/manual/html_node/emacs/Directory-Variables.html pour les détails techniques

Le code de la solution 2 n'est qu'un prototype. Ma véritable implémentation est beaucoup plus complexe. Voir counsel-etags-grepdans https://github.com/redguardtoo/counsel-etags/blob/master/counsel-etags.el

Sommaire:

Ce sont les deux meilleures solutions que je connaisse.

S'il existe d'autres meilleures solutions, elles doivent au moins résoudre les problèmes ci-dessous pour être prêtes pour la production,

• comment obtenir le mot clé à grep (par exemple, obtenir le mot clé de la région sélectionnée)

• échapper au mot-clé

• s'il existe un programme grep plus efficace, nous devrions l'utiliser (ripgrep, the_silver_searcher / ag, ... etc), ou bien utiliser le grep par défaut

• la fenêtre des candidats doit utiliser toute la largeur de l'écran et les utilisateurs peuvent filtrer les candidats de manière interactive (c'est pourquoi les gens utilisent du lierre ou du casque)

• nous devons montrer le chemin relatif dans la fenêtre candidate

• capable de réutiliser le résultat grepped précédent. Le résultat précédent doit donc être enregistré. Vous pouvez utiliser ivy-resumedepuis ivyou helm-resumedepuishelm

• Lorsque vous enregistrez le résultat précédent, le contexte du résultat précédent doit également être enregistré. Par exemple, dans le code de la Solution 2. default-directoryest le contexte. Voir https://github.com/abo-abo/swiper/issues/591 pour plus de détails.

• L'expression régulière étendue doit être utilisée car elle est plus simple et est déjà utilisée par counsel-git-grepthe_silver_searcher / ag.

Je voudrais ajouter une autre solution à la solution de @chen bin qui utilise également counsel(mais vous n'avez pas besoin d'avoir un projet géré par gitpour cela).

Vous devez installer ag (le moteur de recherche Silver) et counselfournir la commande counsel-agqui recherche dans le répertoire en cours la chaîne entrée.

Si vous souhaitez rechercher dans un projet (pas seulement le répertoire de travail actuel), ajoutez ceci à votre .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)))

Cette fonction permettra agde rechercher récursivement le répertoire racine du projet.

Modifier : la fonction ci-dessus est par défaut le symbole au point de recherche. Si vous n'aimez pas ce comportement, remplacez-le (thing-at-point 'symbol)par nil. Et si vous voulez les résultats de la recherche dans sa propre presse tamponC-c C-o

Edit2 : si vous avez ripgrepinstallé, vous pouvez remplacercounsel-ag par counsel-rgdans la fonction ci-dessus et ça ira aussi bien :)

Voici un exemple de fonction grep personnalisée qui récupère récursivement le contenu des fichiers (en utilisant une expression rationnelle pour le terme de recherche) dans un répertoire et ses sous-répertoires, et affiche les résultats avec des lignes de contexte avant et après. La bibliothèque intégrée compile.elet les grep.elbibliothèques proposent plusieurs méthodes pour accéder à l'emplacement du fichier contenant les résultats de la recherche. Il n'est pas nécessaire d'installer quoi que ce soit d'autre pour que cet exemple fonctionne - il suffit d'une version complète d'Emacs et d'un ordinateur sur lequel l' greputilitaire est installé. La variable grep-programpeut être ajustée pour pointer vers un emplacement particulier de l' greputilitaire si la valeur par défaut n'est pas suffisante.

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