From d428327c3c42a68d9cc9b558eb20b38470487634 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 10 Dec 2014 11:37:05 +0900
Subject: [PATCH] emacs.el: Add git-command alias grep to use my-rgrep

---
 emacs.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index 1d5f8a9..6b8efda 100644
--- a/emacs.el
+++ b/emacs.el
@@ -960,7 +960,17 @@ found, otherwise returns nil."
                       '("di" . (lambda (options cmd args)
                                  (git-command-exec options
                                                    "diff"
-                                                   args)))))
+                                                   args))))
+         (add-to-list 'git-command-aliases-alist
+                      '("grep" . (lambda (options cmd args)
+                                   (my-rgrep
+                                    (concat
+                                     "git "
+                                     (git-command-construct-commandline
+                                      `(,@options "--no-pager"
+                                                  "-c" "color.grep=false")
+                                      cmd
+                                      `("-nHe" ,@args))))))))
        (setq git-command-use-emacsclient t)
        (or git-command-prompt-file
            (setq git-command-prompt-file
@@ -2310,8 +2320,6 @@ Commands are searched from ALIST."
     ;; if alist is not given set default value
     (my-rgrep-grep-command name my-rgrep-alist)))
 
-(my-rgrep-grep-command "ag" nil)
-
 (defun my-rgrep (command-args)
   "My recursive grep.  Run COMMAND-ARGS."
   (interactive (let ((cmd (my-rgrep-grep-command my-rgrep-default
@@ -2325,6 +2333,8 @@ Commands are searched from ALIST."
   (compilation-start command-args
                      'grep-mode))
 
+(my-rgrep "git --no-pager grep -nH emacs emacs.el")
+
 ;; (defun my-rgrep-symbol-at-point (command-args)
 ;;   "My recursive grep. Run COMMAND-ARGS."
 ;;   (interactive (list (read-shell-command "grep command: "