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

Add consult-ripgrep-case-sensitive and add/improve bindings

This commit is contained in:
David Morgan 2022-05-17 15:54:08 +01:00
parent 4bb6cfd77e
commit d6d9ab292f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.emacs.d/lisp/init-minibuffer.el
View File

@ -146,7 +146,10 @@ DEFS is a plist associating completion categories to commands."
("M-*" . consult-line-symbol-at-point)
("C-c f" . consult-recent-file)
("C-c r" . consult-ripgrep)
("C-c R" . consult-ripgrep-auto-preview)
;; TODO find an alternative to C-c c?
("C-c c r" . consult-ripgrep-auto-preview)
("C-c c s" . consult-ripgrep-case-sensitive)
("C-c c z" . consult-z-ripgrep)
("C-c C-*" . consult-ripgrep-symbol-at-point)
("M-y" . consult-yank-pop) ;; orig. yank-pop
("<help> a" . consult-apropos) ;; orig. apropos-command
@ -208,6 +211,10 @@ DEFS is a plist associating completion categories to commands."
(interactive "P")
(let ((consult-ripgrep-args (replace-regexp-in-string "\\." "-z ." consult-ripgrep-args)))
(consult-ripgrep dir initial)))
(defun consult-ripgrep-case-sensitive (&optional dir initial)
(interactive "P")
(let ((consult-ripgrep-args (replace-regexp-in-string "\\." "-s ." consult-ripgrep-args)))
(consult-ripgrep dir initial)))
(defun consult-buffer-no-preview ()
(interactive)
(consult-buffer))