syscfg/emacs/module/module-vertico.el

27 lines
565 B
EmacsLisp

;;; module-vertico.el --- vertical completion
;;; Commentary:
;;;
;;; Vertical completion UI for Emacs minibuffer.
;;;
;;; Code:
(require 'module-pkg)
(pkg/require 'vertico)
(vertico-mode)
(setq vertico-cycle t
vertico-count 13
read-file-name-completion-ignore-case t
read-buffer-completion-ignore-case t)
(pkg/with-eval-after-load
(vertico)
(require 'vertico-quick)
(define-key vertico-map (kbd "C-q") #'vertico-quick-insert)
(define-key vertico-map (kbd "M-q") #'vertico-quick-exit))
(provide 'module-vertico)
;;; module-vertico.el ends here.