dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: make generic completions work closer to my expectations

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-05-22 10:44:37 +03:00
parent b3d84ba596
commit 9985faa8e1
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 59 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
emacs/.emacs.d/prot-emacs-modules/prot-emacs-completion.el
View file

@ -75,6 +75,7 @@
;; Remember to check my `completion-styles' and the
;; `completion-category-overrides'.
(setq orderless-matching-styles '(orderless-prefixes orderless-regexp))
(setq orderless-smart-case nil)
;; SPC should never complete: use it for `orderless' groups.
;; The `?' is a regexp construct.
@ -150,25 +151,46 @@
(use-package minibuffer
:ensure nil
:demand t
:hook (minibuffer-setup . prot-common-truncate-lines-silently)
:config
(setq completions-format 'one-column)
(setq completion-show-help nil)
(setq completion-auto-deselect nil)
(setq completion-auto-help 'always)
(setq completion-auto-select nil)
(setq completions-detailed t)
(setq completion-auto-select 'second-tab)
(setq completion-show-help nil)
(setq completion-show-inline-help nil)
(setq completions-max-height 6)
(setq completions-header-format (propertize "%s candidates:\n" 'face 'bold-italic))
(setq completions-detailed t)
(setq completions-format 'one-column)
(setq completions-header-format "")
;; (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) ; Emacs 30
(setq completions-max-height 10)
(setq completions-sort 'historical)
;; This one is for Emacs 31. It relies on what I am doing with the `completion-category-overrides'.
(setq completion-eager-display 'auto)
(setq minibuffer-completion-auto-choose t)
(setq minibuffer-visible-completions nil) ; Emacs 30
(unless prot-emacs-completion-ui
(prot-emacs-keybind minibuffer-local-completion-map
"<up>" #'minibuffer-previous-line-completion
"<down>" #'minibuffer-next-line-completion)
(prot-emacs-keybind completion-in-region-mode-map
"<up>" #'minibuffer-previous-completion
"<down>" #'minibuffer-next-completion
"RET" #'minibuffer-choose-completion)
(defun prot/completions-tweak-style ()
"Tweak the style of the Completions buffer."
(setq-local mode-line-format nil)
(setq-local cursor-in-non-selected-windows nil)
(when (and completions-header-format
(not (string-blank-p completions-header-format)))
(setq-local display-line-numbers-offset -1)))
(add-hook 'completion-list-mode-hook #'prot/completions-tweak-style)
(add-hook 'completion-list-mode-hook #'prot-common-truncate-lines-silently)))
;;;; `savehist' (minibuffer and related histories)

37
emacs/.emacs.d/prot-emacs.org
View file

@ -4174,25 +4174,46 @@ completion (such as the ~corfu~ package).
(use-package minibuffer
:ensure nil
:demand t
:hook (minibuffer-setup . prot-common-truncate-lines-silently)
:config
(setq completions-format 'one-column)
(setq completion-show-help nil)
(setq completion-auto-deselect nil)
(setq completion-auto-help 'always)
(setq completion-auto-select nil)
(setq completions-detailed t)
(setq completion-auto-select 'second-tab)
(setq completion-show-help nil)
(setq completion-show-inline-help nil)
(setq completions-max-height 6)
(setq completions-header-format (propertize "%s candidates:\n" 'face 'bold-italic))
(setq completions-detailed t)
(setq completions-format 'one-column)
(setq completions-header-format "")
;; (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) ; Emacs 30
(setq completions-max-height 10)
(setq completions-sort 'historical)
;; This one is for Emacs 31. It relies on what I am doing with the `completion-category-overrides'.
(setq completion-eager-display 'auto)
(setq minibuffer-completion-auto-choose t)
(setq minibuffer-visible-completions nil) ; Emacs 30
(unless prot-emacs-completion-ui
(prot-emacs-keybind minibuffer-local-completion-map
"<up>" #'minibuffer-previous-line-completion
"<down>" #'minibuffer-next-line-completion)
(prot-emacs-keybind completion-in-region-mode-map
"<up>" #'minibuffer-previous-completion
"<down>" #'minibuffer-next-completion
"RET" #'minibuffer-choose-completion)
(defun prot/completions-tweak-style ()
"Tweak the style of the Completions buffer."
(setq-local mode-line-format nil)
(setq-local cursor-in-non-selected-windows nil)
(when (and completions-header-format
(not (string-blank-p completions-header-format)))
(setq-local display-line-numbers-offset -1)))
(add-hook 'completion-list-mode-hook #'prot/completions-tweak-style)
(add-hook 'completion-list-mode-hook #'prot-common-truncate-lines-silently)))
#+end_src