code.delx.au - dotemacs/blob - completion/init.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 (dolist (pkg '("~/.emacs.d/completion/vertico"
   4                "~/.emacs.d/completion/vertico/extensions"
   5                "~/.emacs.d/completion/orderless"
   6                "~/.emacs.d/completion/marginalia"
   7                "~/.emacs.d/completion/consult"))
   8   (add-to-list 'load-path pkg))
   9
  10 (require 'vertico)
  11 (require 'vertico-repeat)
  12 (vertico-mode 1)
  13 (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
  14
  15 (require 'orderless)
  16 (setq completion-styles '(orderless basic)
  17       completion-category-overrides '((file (styles basic partial-completion))))
  18 (setq orderless-component-separator 'orderless-escapable-split-on-space)
  19 (setq completion-ignore-case t)
  20 (setq orderless-smart-case t)
  21
  22 (require 'marginalia)
  23 (marginalia-mode 1)
  24
  25 (require 'consult)
  26 (require 'consult-imenu)
  27 (require 'consult-flymake)
  28 (setq completion-in-region-function 'consult-completion-in-region)
  29
  30 (global-set-key (kbd "C-s") 'consult-line)
  31 (global-set-key (kbd "C-r") 'vertico-repeat)
  32 (global-set-key (kbd "C-x g") 'consult-ripgrep)
  33 (global-set-key (kbd "C-x C-b") 'consult-buffer)
  34 (global-set-key (kbd "C-x C-r") 'consult-recent-file)
  35 (global-set-key (kbd "M-g i") 'consult-imenu)
  36 (global-set-key (kbd "M-g g") 'consult-goto-line)
  37 (global-set-key (kbd "M-g M-g") 'consult-goto-line)