Move grep-related stuff to init-buffile.el

1 files changed, 23 insertions, 0 deletions

diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el
index 8c3f6df..28540f9 100644
--- a/lisp/init-buffile.el
+++ b/lisp/init-buffile.el
@@ -67,6 +67,29 @@ user."
 
 (define-key km/file-map "v" 'view-file)
 
+(autoload 'vc-git-grep "vc-git"
+  "Run git grep, searching for REGEXP in FILES in directory DIR.
+The search is limited to file names matching shell pattern FILES.
+FILES may use abbreviations defined in `grep-files-aliases', e.g.
+entering `ch' is equivalent to `*.[ch]'.")
+
+;; http://stackoverflow.com/questions/16122801/
+;; remove-header-information-from-rgrep-grep-output-in-emacs
+(defun hide-grep-header ()
+  (save-excursion
+    (with-current-buffer grep-last-buffer
+      (goto-line 5)
+      (narrow-to-region (point) (point-max)))))
+
+(defadvice grep (after hide-grep-header activate) (hide-grep-header))
+(defadvice rgrep (after hide-grep-header activate) (hide-grep-header))
+(defadvice lgrep (after hide-grep-hxoeader activate) (hide-grep-header))
+(defadvice grep-find (after hide-grep-header activate) (hide-grep-header))
+(after 'vc-git
+  (defadvice vc-git-grep (after hide-grep-header activate) (hide-grep-header)))
+
+(key-chord-define-global ",z" 'rgrep)
+
 ;;; Ibuffer
 
 ;; Replace buffer-menu with ibuffer.