Jay Fields is a software developer at DRW Trading. He has a passion for discovering and maturing innovative solutions. His most recent work has been in the Domain Specific Language space where he's delivered applications that empowered subject matter experts to write the business rules of the applications. He is also very interested in maturing software design through software testing. Jay is a DZone MVB and is not an employee of DZone and has posted 116 posts at DZone. You can read more from them at their website. View Full User Profile

Elisp: Grep in Clojure Project

11.17.2012
| 2502 views |
  • submit to reddit

 Grep'ing within my current project is something I do frequently. It's not much to type, but I do it often enough that I was looking for a keystroke. Most of my projects are Clojure and use Leiningen, thus I'm able to make some pretty safe assumptions. The following snippets allow you to easily grep within your project.


note: both use expand-region to grab the clojure that the cursor is on or immediately after, and grep for whatever was selected.

grep recursively starting at the directory where the project.clj file lives
(defun grep-in-project ()
  (interactive)
  (er/mark-clj-word)
  (let* ((project-root (locate-dominating-file
                         (file-name-directory (buffer-file-name)) "project.clj")))
    (if project-root
        (grep (concat "grep -nH -e "
                      (buffer-substring-no-properties (region-beginning) (region-end))
                      " -R " project-root))
      (message (concat "no project.clj found at or below " (buffer-file-name))))))

(global-set-key (kbd "C-c g") 'grep-in-project)

grep recursively, but allow the user to select the root directory (defaulting to the location of the project.clj file). I often use this one for selecting only the src or test directories of my project.
(defun grep-in (project-root)
  (interactive (list (read-directory-name "Project Root: "
                                          (locate-dominating-file
                                            default-directory
                                            "project.clj"))))
  (er/mark-clj-word)
  (grep (concat "grep -nH -e "
                (buffer-substring-no-properties (region-beginning) (region-end))
                " -R " project-root)))

(global-set-key (kbd "C-c C-g") 'grep-in)



Published at DZone with permission of Jay Fields, author and DZone MVB. (source)

(Note: Opinions expressed in this article and its replies are the opinions of their respective authors and not those of DZone, Inc.)