From 5c5f41f2d9f86b567e8cbac4e1e95bc38d7a77ea Mon Sep 17 00:00:00 2001 From: David Morgan Date: Fri, 21 Oct 2022 16:19:34 +0100 Subject: Add more things to search-map --- .emacs.d/lisp/init-search.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to '.emacs.d') diff --git a/.emacs.d/lisp/init-search.el b/.emacs.d/lisp/init-search.el index 3ffe6d3..76f899f 100644 --- a/.emacs.d/lisp/init-search.el +++ b/.emacs.d/lisp/init-search.el @@ -40,6 +40,8 @@ ([remap isearch-query-replace-regexp] . anzu-isearch-query-replace-regexp))) (use-package rg + :config + (define-key search-map "s" 'rg) :bind ("C-c C-M-S-r" . rg-menu) ("C-c C-M-r" . rg) @@ -50,6 +52,8 @@ (defun deadgrep-symbol-at-point () (interactive) (deadgrep (thing-at-point 'symbol))) + (define-key search-map "d" 'deadgrep) + (define-key search-map "D" 'deadgrep-symbol-at-point) :bind ("C-," . deadgrep-symbol-at-point) ("C-c c d" . deadgrep)) @@ -74,6 +78,10 @@ (list prefix-arg (when-let ((s (symbol-at-point))) (symbol-name s)))) (affe-find dir initial)) + (define-key search-map "#" 'affe-grep) + (define-key search-map "~" 'my/affe-grep-symbol-at-point) + (define-key search-map "M-z" 'affe-find) + (define-key search-map "M-Z" 'my/affe-find-symbol-at-point) :bind ("C-#" . affe-grep) ("C-c z" . affe-find) -- cgit 1.4.1-2-gfad0