djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add deadgrep-all function

This commit is contained in:
David Morgan 2023-05-23 16:06:03 +01:00
parent 78903f9b75
commit 6ea07273e7
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
.emacs.d/lisp/init-search.el
View File

@ -62,12 +62,23 @@
(defun deadgrep-current-directory (search-term)
(interactive (list (deadgrep--read-search-term)))
(deadgrep search-term (file-name-directory buffer-file-name)))
(defvar include-all nil)
(defun deadgrep--include-all-advice (rg-args)
(when include-all
(push "-uuuLz" rg-args)))
(advice-add 'deadgrep--arguments :filter-return #'deadgrep--include-all-advice)
(defun deadgrep-all (search-term)
(interactive (list (deadgrep--read-search-term)))
(let ((include-all t))
(deadgrep search-term)))
:bind
("C-c c d" . deadgrep)
("C-c c M-d" . deadgrep-all)
("C-S-z" . deadgrep-symbol-at-point)
("C-c c C-d" . deadgrep-current-directory)
(:map search-map
("d" . deadgrep)
("M-d" . deadgrep-all)
("C-d" . deadgrep-current-directory)
("D" . deadgrep-symbol-at-point)))