Change some consult stuff

This commit is contained in:
Alexander Rosenberg 2023-10-12 20:24:53 -07:00
parent 8f354329dd
commit 2d31620f60
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

12
init.el
View File

@ -306,9 +306,6 @@ visual states."
("C-x b" . consult-buffer) ("C-x b" . consult-buffer)
("C-S-s" . consult-ripgrep) ("C-S-s" . consult-ripgrep)
("C-x C-S-f" . consult-fd) ("C-x C-S-f" . consult-fd)
("C-x C-m" . consult-man)
("C-h TAB" . consult-info)
("C-h C-m" . my/consult-emacs-info)
("C-x c k" . consult-keep-lines) ("C-x c k" . consult-keep-lines)
("C-x c f" . consult-focus-lines) ("C-x c f" . consult-focus-lines)
("C-x c r" . consult-recent-file) ("C-x c r" . consult-recent-file)
@ -317,15 +314,14 @@ visual states."
("C-x c g" . consult-ripgrep) ("C-x c g" . consult-ripgrep)
("M-g i" . consult-imenu) ("M-g i" . consult-imenu)
("M-g I" . consult-imenu-multi) ("M-g I" . consult-imenu-multi)
("M-g r" . consult-imenu-multi)) ("M-g r" . consult-imenu-multi)
:map help-map
("TAB". consult-info)
("C-m" . consult-man))
:hook (minibuffer-setup . my/consult-setup-minibuffer-completion) :hook (minibuffer-setup . my/consult-setup-minibuffer-completion)
:init :init
(defun my/consult-setup-minibuffer-completion () (defun my/consult-setup-minibuffer-completion ()
(setq-local completion-in-region-function #'consult-completion-in-region)) (setq-local completion-in-region-function #'consult-completion-in-region))
(defun my/consult-emacs-info ()
"`consult-info' for emacs specific pages."
(interactive)
(consult-info "emacs" "efaq" "cl" "compat" "elisp"))
(evil-declare-motion #'consult-line)) (evil-declare-motion #'consult-line))
;; integration for embark and consult ;; integration for embark and consult