334 lines
12 KiB
EmacsLisp
334 lines
12 KiB
EmacsLisp
;;; General minibuffer settings
|
|
(use-package minibuffer
|
|
:ensure nil
|
|
:config
|
|
;;;; Completion styles
|
|
(setq completion-styles '(basic substring initials flex orderless)) ; also see `completion-category-overrides'
|
|
(setq completion-pcm-leading-wildcard t) ; Emacs 31: make `partial-completion' behave like `substring'
|
|
|
|
;; Reset all the per-category defaults so that (i) we use the
|
|
;; standard `completion-styles' and (ii) can specify our own styles
|
|
;; in the `completion-category-overrides' without having to
|
|
;; explicitly override everything.
|
|
(setq completion-category-defaults nil)
|
|
|
|
;; A non-exhaustve list of known completion categories:
|
|
;;
|
|
;; - `bookmark'
|
|
;; - `buffer'
|
|
;; - `charset'
|
|
;; - `coding-system'
|
|
;; - `color'
|
|
;; - `command' (e.g. `M-x')
|
|
;; - `customize-group'
|
|
;; - `environment-variable'
|
|
;; - `expression'
|
|
;; - `face'
|
|
;; - `file'
|
|
;; - `function' (the `describe-function' command bound to `C-h f')
|
|
;; - `info-menu'
|
|
;; - `imenu'
|
|
;; - `input-method'
|
|
;; - `kill-ring'
|
|
;; - `library'
|
|
;; - `minor-mode'
|
|
;; - `multi-category'
|
|
;; - `package'
|
|
;; - `project-file'
|
|
;; - `symbol' (the `describe-symbol' command bound to `C-h o')
|
|
;; - `theme'
|
|
;; - `unicode-name' (the `insert-char' command bound to `C-x 8 RET')
|
|
;; - `variable' (the `describe-variable' command bound to `C-h v')
|
|
;; - `consult-grep'
|
|
;; - `consult-isearch'
|
|
;; - `consult-kmacro'
|
|
;; - `consult-location'
|
|
;; - `embark-keybinding'
|
|
;;
|
|
(setq completion-category-overrides
|
|
;; NOTE 2021-10-25: I am adding `basic' because it works better as a
|
|
;; default for some contexts. Read:
|
|
;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=50387>.
|
|
;;
|
|
;; `partial-completion' is a killer app for files, because it
|
|
;; can expand ~/.l/s/fo to ~/.local/share/fonts.
|
|
;;
|
|
;; If `basic' cannot match my current input, Emacs tries the
|
|
;; next completion style in the given order. In other words,
|
|
;; `orderless' kicks in as soon as I input a space or one of its
|
|
;; style dispatcher characters.
|
|
'((file (styles . (basic partial-completion orderless)))
|
|
(bookmark (styles . (basic substring)))
|
|
(library (styles . (basic substring)))
|
|
(embark-keybinding (styles . (basic substring)))
|
|
(imenu (styles . (basic substring orderless)))
|
|
(consult-location (styles . (basic substring orderless)))
|
|
(kill-ring (styles . (emacs22 orderless)))
|
|
(eglot (styles . (emacs22 substring orderless))))))
|
|
|
|
;;; Orderless completion style
|
|
(use-package orderless
|
|
:ensure t
|
|
:demand t
|
|
:after minibuffer
|
|
:config
|
|
;; Remember to check my `completion-styles' and the
|
|
;; `completion-category-overrides'.
|
|
(setq orderless-matching-styles '(orderless-prefixes orderless-regexp))
|
|
|
|
;; SPC should never complete: use it for `orderless' groups.
|
|
;; The `?' is a regexp construct.
|
|
:bind ( :map minibuffer-local-completion-map
|
|
("SPC" . nil)
|
|
("?" . nil)))
|
|
|
|
(setq completion-ignore-case t)
|
|
(setq read-buffer-completion-ignore-case t)
|
|
(setq-default case-fold-search t) ; For general regexp
|
|
(setq read-file-name-completion-ignore-case t)
|
|
|
|
(use-package mb-depth
|
|
:ensure nil
|
|
:hook (elpaca-after-init . minibuffer-depth-indicate-mode)
|
|
:config
|
|
(setq enable-recursive-minibuffers t))
|
|
|
|
(use-package minibuf-eldef
|
|
:ensure nil
|
|
:config
|
|
(setq minibuffer-default-prompt-format " [%s]"))
|
|
|
|
(use-package rfn-eshadow
|
|
:ensure nil
|
|
:hook (minibuffer-setup . cursor-intangible-mode)
|
|
:config
|
|
;; Not everything here comes from rfn-eshadow.el, but this is fine.
|
|
|
|
(setq resize-mini-windows t)
|
|
(setq read-answer-short t) ; also check `use-short-answers' for Emacs28
|
|
(setq echo-keystrokes 0.25)
|
|
(setq kill-ring-max 60) ; Keep it small
|
|
|
|
;; Do not allow the cursor to move inside the minibuffer prompt. I
|
|
;; got this from the documentation of Daniel Mendler's Vertico
|
|
;; package: <https://github.com/minad/vertico>.
|
|
(setq minibuffer-prompt-properties
|
|
'(read-only t cursor-intangible t face minibuffer-prompt))
|
|
|
|
;; Add prompt indicator to `completing-read-multiple'. We display
|
|
;; [`completing-read-multiple': <separator>], e.g.,
|
|
;; [`completing-read-multiple': ,] if the separator is a comma. This
|
|
;; is adapted from the README of the `vertico' package by Daniel
|
|
;; Mendler. I made some small tweaks to propertize the segments of
|
|
;; the prompt.
|
|
(defun crm-indicator (args)
|
|
(cons (format "[`completing-read-multiple': %s] %s"
|
|
(propertize
|
|
(replace-regexp-in-string
|
|
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
|
|
crm-separator)
|
|
'face 'error)
|
|
(car args))
|
|
(cdr args)))
|
|
|
|
(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
|
|
|
|
(file-name-shadow-mode 1))
|
|
|
|
(use-package minibuffer
|
|
:ensure nil
|
|
:demand t
|
|
:config
|
|
(setq completions-format 'one-column)
|
|
(setq completion-show-help nil)
|
|
(setq completion-auto-help 'always)
|
|
(setq completion-auto-select t)
|
|
(setq completions-detailed t)
|
|
(setq completion-show-inline-help nil)
|
|
(setq completions-max-height 10)
|
|
(setq completions-header-format (propertize "%s candidates:\n" 'face 'bold-italic))
|
|
(setq completions-highlight-face 'completions-highlight)
|
|
(setq minibuffer-completion-auto-choose t)
|
|
(setq minibuffer-visible-completions t)
|
|
(setq completions-sort 'historical))
|
|
|
|
;;;; `savehist' (minibuffer and related histories)
|
|
(use-package savehist
|
|
:ensure nil
|
|
:hook (elpaca-after-init . savehist-mode)
|
|
:config
|
|
(setq savehist-file (locate-user-emacs-file "savehist"))
|
|
(setq history-length 100)
|
|
(setq history-delete-duplicates t)
|
|
(setq savehist-save-minibuffer-history t)
|
|
(add-to-list 'savehist-additional-variables 'kill-ring))
|
|
|
|
(use-package dabbrev
|
|
:ensure nil
|
|
:commands (dabbrev-expand dabbrev-completion)
|
|
:config
|
|
;;;; `dabbrev' (dynamic word completion (dynamic abbreviations))
|
|
(setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_")
|
|
(setq dabbrev-abbrev-skip-leading-regexp "[$*/=~']")
|
|
(setq dabbrev-backward-only nil)
|
|
(setq dabbrev-case-distinction 'case-replace)
|
|
(setq dabbrev-case-fold-search nil)
|
|
(setq dabbrev-case-replace 'case-replace)
|
|
(setq dabbrev-check-other-buffers t)
|
|
(setq dabbrev-eliminate-newlines t)
|
|
(setq dabbrev-upcase-means-case-search t)
|
|
(setq dabbrev-ignored-buffer-modes
|
|
'(archive-mode image-mode docview-mode pdf-view-mode)))
|
|
|
|
(use-package hippie-ext
|
|
:ensure nil
|
|
:bind
|
|
;; Replace the default dabbrev
|
|
("M-/" . hippie-expand))
|
|
|
|
;;; Corfu (in-buffer completion popup)
|
|
(use-package corfu
|
|
:ensure t
|
|
:hook (elpaca-after-init . global-corfu-mode)
|
|
;; I also have (setq tab-always-indent 'complete) for TAB to complete
|
|
;; when it does not need to perform an indentation change.
|
|
:bind (:map corfu-map ("<tab>" . corfu-complete))
|
|
:config
|
|
(setq corfu-auto t
|
|
corfu-auto-delay 0.3
|
|
corfu-auto-prefix 1
|
|
corfu-count 15
|
|
corfu-preview-current #'insert
|
|
corfu-min-width 20
|
|
corfu-preselect 'prompt
|
|
corfu-on-exact-match nil
|
|
corfu-popupinfo-delay '(2.0 . 1.0))
|
|
(corfu-popupinfo-mode 1) ; shows documentation after `corfu-popupinfo-delay'
|
|
|
|
;; Sort by input history (no need to modify `corfu-sort-function').
|
|
(with-eval-after-load 'savehist
|
|
(corfu-history-mode 1)
|
|
(add-to-list 'savehist-additional-variables 'corfu-history)))
|
|
|
|
(use-package cape
|
|
:ensure t
|
|
:demand t
|
|
;; Press C-c p ? to for help.
|
|
:bind ("C-c p" . cape-prefix-map)
|
|
:hook
|
|
(completion-at-point-functions . cape-dabbrev)
|
|
(completion-at-point-functions . cape-dict)
|
|
(completion-at-point-functions . cape-elisp-block)
|
|
(completion-at-point-functions . cape-elisp-symbol)
|
|
(completion-at-point-functions . cape-emoji)
|
|
(completion-at-point-functions . cape-file))
|
|
|
|
;;; Enhanced minibuffer commands (consult.el)
|
|
(use-package consult
|
|
:ensure t
|
|
:hook (completion-list-mode . consult-preview-at-point-mode)
|
|
:bind
|
|
( :map global-map
|
|
;; Prot's bindings
|
|
("M-K" . consult-keep-lines) ; M-S-k is similar to M-S-5 (M-%)
|
|
("M-F" . consult-focus-lines) ; same principle
|
|
("M-s M-b" . consult-buffer) ; Start opening anything from here
|
|
("M-s M-f" . consult-fd)
|
|
("M-s M-g" . consult-ripgrep)
|
|
("M-s M-h" . consult-history)
|
|
("M-s M-i" . consult-imenu)
|
|
("M-s M-l" . consult-line)
|
|
("M-s M-m" . consult-mark)
|
|
("M-s M-y" . consult-yank-pop)
|
|
("M-s M-s" . consult-outline)
|
|
;; Overriding defaults: C-x bindings in `ctl-x-map'
|
|
("C-x M-:" . consult-complex-command) ;; orig. repeat-complex-command
|
|
("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
|
|
("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame
|
|
("C-x t b" . consult-buffer-other-tab) ;; orig. switch-to-buffer-other-tab
|
|
("C-x r b" . consult-bookmark) ;; orig. bookmark-jump
|
|
("C-x p b" . consult-project-buffer) ;; orig. project-switch-to-buffer
|
|
;; Custom M-# bindings for fast register access
|
|
("M-#" . consult-register-load)
|
|
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
|
|
("C-M-#" . consult-register)
|
|
;; Other custom bindings
|
|
("M-y" . consult-yank-pop) ;; orig. yank-pop
|
|
;; M-g bindings in `goto-map'
|
|
("M-g e" . consult-compile-error)
|
|
("M-g f" . consult-flymake) ;; Alternative: consult-flycheck
|
|
("M-g g" . consult-goto-line) ;; orig. goto-line
|
|
("M-g M-g" . consult-goto-line) ;; orig. goto-line
|
|
("M-g o" . consult-outline) ;; Alternative: consult-org-heading
|
|
;; My bindings from my Helm workflow
|
|
("C-x c i" . consult-imenu)
|
|
("C-c s" . consult-ripgrep)
|
|
:map consult-narrow-map
|
|
("?" . consult-narrow-help))
|
|
:config
|
|
(setq consult-line-numbers-widen t)
|
|
;; (setq completion-in-region-function #'consult-completion-in-region)
|
|
(setq consult-async-min-input 3)
|
|
(setq consult-async-input-debounce 0.5)
|
|
(setq consult-async-input-throttle 0.8)
|
|
(setq consult-narrow-key nil)
|
|
(setq consult-find-args
|
|
(concat "find . -not ( "
|
|
"-path */.git* -prune "
|
|
"-or -path */.cache* -prune )"))
|
|
(setq consult-preview-key 'any)
|
|
;; the `imenu' extension is in its own file
|
|
(require 'consult-imenu)
|
|
(dolist (clj '(clojure-mode clojure-ts-mode))
|
|
(add-to-list 'consult-imenu-config
|
|
`(,clj :toplevel "Functions"
|
|
:types
|
|
((?f "Functions" font-lock-function-name-face)
|
|
(?m "Macros" font-lock-function-name-face)
|
|
(?p "Packages" font-lock-constant-face)
|
|
(?t "Types" font-lock-type-face)
|
|
(?v "Variables" font-lock-variable-name-face)))))
|
|
(add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring)))
|
|
|
|
;;; Detailed completion annotations (marginalia.el)
|
|
(use-package marginalia
|
|
:ensure t
|
|
:hook (elpaca-after-init . marginalia-mode)
|
|
:config
|
|
(setq marginalia-max-relative-age 0)) ; absolute time
|
|
|
|
;;; Vertical completion layout (vertico)
|
|
(use-package vertico
|
|
:ensure t
|
|
:hook (elpaca-after-init . vertico-mode)
|
|
:config
|
|
(setq vertico-scroll-margin 0)
|
|
(setq vertico-count 8)
|
|
(setq vertico-resize t)
|
|
(setq vertico-cycle t)
|
|
|
|
(with-eval-after-load 'rfn-eshadow
|
|
;; This works with `file-name-shadow-mode' enabled. When you are in
|
|
;; a sub-directory and use, say, `find-file' to go to your home '~/'
|
|
;; or root '/' directory, Vertico will clear the old path to keep
|
|
;; only your current input.
|
|
(add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
|
|
)
|
|
|
|
(use-package vertico-repeat
|
|
:after vertico
|
|
:bind ( :map global-map
|
|
("M-R" . vertico-repeat)
|
|
:map vertico-map
|
|
("M-N" . vertico-repeat-next)
|
|
("M-P" . vertico-repeat-previous))
|
|
:hook (minibuffer-setup . vertico-repeat-save))
|
|
|
|
(use-package vertico-suspend
|
|
:after vertico
|
|
;; Note: `enable-recursive-minibuffers' must be t
|
|
:bind ( :map global-map
|
|
("M-S" . vertico-suspend)
|
|
("C-x c b" . vertico-suspend)))
|
|
|
|
(provide 'nebkor-completion)
|