From 834d8386134beb2f5b25290ed6df4f0a998d9ed6 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Mon, 18 Aug 2014 18:11:25 +0900
Subject: [PATCH] emacs.el: use macro to define my-rgrep-* functions

---
 emacs.el | 56 +++++++++++++++++---------------------------------------
 1 file changed, 17 insertions(+), 39 deletions(-)

diff --git a/emacs.el b/emacs.el
index 65ffe3a..14a62f7 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2265,46 +2265,24 @@ Commands are searched from ALIST."
 ;;   (compilation-start command-args
 ;;                      'grep-mode))
 
-(defun my-rgrep-ack ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "ack"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-ag ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "ag"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-gitgrep ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "gitgrep"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-grep ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "grep"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-global ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "global"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
+(defmacro define-my-rgrep (name)
+  "Define rgrep for NAME."
+  `(defun ,(intern (concat "my-rgrep-"
+                           name)) ()
+     ,(format "My recursive grep by %s."
+              name)
+     (interactive)
+     (let ((my-rgrep-default ,name))
+       (if (called-interactively-p 'any)
+           (call-interactively 'my-rgrep)
+         (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
+  )
 
+(define-my-rgrep "ack")
+(define-my-rgrep "ag")
+(define-my-rgrep "gitgrep")
+(define-my-rgrep "grep")
+(define-my-rgrep "global")
 
 (define-key ctl-x-map "s" 'my-rgrep)