Create a gist now

Instantly share code, notes, and snippets.

(defun grep-string-in (s project-root)
(interactive (list (read-string "string: ")
(read-directory-name
"Project Root: "
(locate-dominating-file default-directory "project.clj"))))
(message (concat s project-root))
(let* ((cmd (concat "grep -nH -e " s " -R " project-root)))
(setq last-run-grep cmd)
(grep cmd)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment