emacs; git; shell; grep; save; change buffers; capture shell output; cd; replace regexp;

gistfile1.el

setq last-search "")
(defun gg (searchstring)
"git-grep the entire current repo"
(cd (replace-regexp-in-string "\n" "" (shell-command-to-string "git rev-parse --show-toplevel")))
(interactive (list (completing-read "Search for: " nil nil nil (concat
last-search " -e "))))
(when buffer-file-name (save-buffer))
(call-process "git" nil "*Messages*" nil "add" "- u")
(call-process "git" nil "*Messages*" nil "add" "\*.org")
(grep-find (concat "git grep -P -n -I -i --full-name --all-match " searchstring))
(switch-to-buffer "*grep*")
(delete-other-windows)
(setq last-search searchstring)
)