Add deadgrep-all function
This commit is contained in:
parent
78903f9b75
commit
6ea07273e7
|
@ -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)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue