summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-29 22:42:03 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-29 22:42:03 -0500
commit0e7dceb7325deb42faef3488d9663fd53388d17d (patch)
tree612b68e1209632a9e1083afcaff1a806ed38fc6f /lisp
parent8fe6981c8bf8571983420202be1275c5388fa34d (diff)
downloademacs.d-0e7dceb7325deb42faef3488d9663fd53388d17d.tar.gz
Make map for grep and find variants
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-buffile.el25
1 files changed, 21 insertions, 4 deletions
diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el
index 28540f9..c5e8ee1 100644
--- a/lisp/init-buffile.el
+++ b/lisp/init-buffile.el
@@ -81,15 +81,32 @@ entering `ch' is equivalent to `*.[ch]'.")
(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 'grep
+ (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)
+(define-prefix-command 'km/file-search-map)
+(define-key 'km/file-map "s" 'km/file-search-map)
+
+(define-key 'km/file-search-map "g" 'lgrep)
+(define-key 'km/file-search-map "G" 'grep)
+(define-key 'km/file-search-map "f" 'grep-find)
+
+(define-key 'km/file-search-map "r" 'rgrep)
+
+(define-key 'km/file-search-map "v" 'vc-git-grep)
+(define-key 'km/file-search-map "z" 'zrgrep)
+
+(define-key 'km/file-search-map "n" 'find-name-dired)
+(define-key 'km/file-search-map "d" 'find-grep-dired)
+(define-key 'km/file-search-map "D" 'find-dired)
+
;;; Ibuffer
;; Replace buffer-menu with ibuffer.