Add deadgrep-all function
This commit is contained in:
parent
78903f9b75
commit
6ea07273e7
|
@ -62,12 +62,23 @@
|
||||||
(defun deadgrep-current-directory (search-term)
|
(defun deadgrep-current-directory (search-term)
|
||||||
(interactive (list (deadgrep--read-search-term)))
|
(interactive (list (deadgrep--read-search-term)))
|
||||||
(deadgrep search-term (file-name-directory buffer-file-name)))
|
(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
|
:bind
|
||||||
("C-c c d" . deadgrep)
|
("C-c c d" . deadgrep)
|
||||||
|
("C-c c M-d" . deadgrep-all)
|
||||||
("C-S-z" . deadgrep-symbol-at-point)
|
("C-S-z" . deadgrep-symbol-at-point)
|
||||||
("C-c c C-d" . deadgrep-current-directory)
|
("C-c c C-d" . deadgrep-current-directory)
|
||||||
(:map search-map
|
(:map search-map
|
||||||
("d" . deadgrep)
|
("d" . deadgrep)
|
||||||
|
("M-d" . deadgrep-all)
|
||||||
("C-d" . deadgrep-current-directory)
|
("C-d" . deadgrep-current-directory)
|
||||||
("D" . deadgrep-symbol-at-point)))
|
("D" . deadgrep-symbol-at-point)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue