lisp/init-minibuffer.el

   1 ;;; init-minibuffer.el --- Config for minibuffer completion       -*- lexical-binding: t; -*-
   2 ;;; Commentary:
   3 ;;; Code:
   4
   5
   6 (when (maybe-require-package 'vertico)
   7   (add-hook 'after-init-hook 'vertico-mode)
   8
   9   (when (maybe-require-package 'embark)
  10     (with-eval-after-load 'vertico
  11       (define-key vertico-map (kbd "C-c C-o") 'embark-export)
  12       (define-key vertico-map (kbd "C-c C-c") 'embark-act)))
  13
  14   (when (maybe-require-package 'consult)
  15     (defmacro sanityinc/no-consult-preview (&rest cmds)
  16       `(with-eval-after-load 'consult
  17          (consult-customize ,@cmds :preview-key "M-P")))
  18
  19     (sanityinc/no-consult-preview
  20      consult-ripgrep
  21      consult-git-grep consult-grep
  22      consult-bookmark consult-recent-file consult-xref
  23      consult--source-recent-file consult--source-project-recent-file consult--source-bookmark)
  24
  25     (when (and (executable-find "rg"))
  26       (defun sanityinc/consult-ripgrep-at-point (&optional dir initial)
  27         (interactive (list prefix-arg (when-let ((s (symbol-at-point)))
  28                                         (symbol-name s))))
  29         (consult-ripgrep dir initial))
  30       (sanityinc/no-consult-preview sanityinc/consult-ripgrep-at-point)
  31       (global-set-key (kbd "M-?") 'sanityinc/consult-ripgrep-at-point))
  32
  33     (global-set-key [remap switch-to-buffer] 'consult-buffer)
  34     (global-set-key [remap switch-to-buffer-other-window] 'consult-buffer-other-window)
  35     (global-set-key [remap switch-to-buffer-other-frame] 'consult-buffer-other-frame)
  36     (global-set-key [remap goto-line] 'consult-goto-line)
  37
  38
  39
  40     (when (maybe-require-package 'embark-consult)
  41       (with-eval-after-load 'embark
  42         (require 'embark-consult)
  43         (add-hook 'embark-collect-mode-hook 'embark-consult-preview-minor-mode)))
  44
  45     (maybe-require-package 'consult-flycheck)))
  46
  47 (when (maybe-require-package 'marginalia)
  48   (add-hook 'after-init-hook 'marginalia-mode))
  49
  50
  51 (provide 'init-minibuffer)
  52 ;;; init-minibuffer.el ends here