Add deadgrep-all function

1 files changed, 11 insertions, 0 deletions

diff --git a/.emacs.d/lisp/init-search.el b/.emacs.d/lisp/init-search.el
index 9d4e487..fba07e1 100644
--- a/.emacs.d/lisp/init-search.el
+++ b/.emacs.d/lisp/init-search.el
@@ -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)))