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: tweak generic completion UI settings

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-02-08 07:59:13 +02:00
parent 4b80ce7a3f
commit 6754532282
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -107,16 +107,24 @@
(setq completions-format 'one-column)
(setq completion-show-help nil)
(setq completion-auto-help t)
(setq completion-auto-help 'always)
(setq completion-auto-select nil)
(setq completions-detailed t)
(setq completion-show-inline-help nil)
(setq completions-max-height 6)
(setq completions-header-format (propertize "%s candidates:\n" 'face 'font-lock-comment-face))
(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-sort 'historical)
(unless prot-emacs-completion-ui
(prot-emacs-keybind minibuffer-local-completion-map
"<up>" #'minibuffer-previous-line-completion
"<down>" #'minibuffer-next-line-completion)
(add-hook 'completion-list-mode-hook #'prot-common-truncate-lines-silently))
;;;; `savehist' (minibuffer and related histories)
(setq savehist-file (locate-user-emacs-file "savehist"))
(setq history-length 100)

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

@ -3935,15 +3935,23 @@ completion (such as the ~corfu~ package).
#+begin_src emacs-lisp :tangle "prot-emacs-modules/prot-emacs-completion.el"
(setq completions-format 'one-column)
(setq completion-show-help nil)
(setq completion-auto-help t)
(setq completion-auto-help 'always)
(setq completion-auto-select nil)
(setq completions-detailed t)
(setq completion-show-inline-help nil)
(setq completions-max-height 6)
(setq completions-header-format (propertize "%s candidates:\n" 'face 'font-lock-comment-face))
(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-sort 'historical)
(unless prot-emacs-completion-ui
(prot-emacs-keybind minibuffer-local-completion-map
"<up>" #'minibuffer-previous-line-completion
"<down>" #'minibuffer-next-line-completion)
(add-hook 'completion-list-mode-hook #'prot-common-truncate-lines-silently))
#+end_src
*** The =prot-emacs-completion.el= settings for saving the history (~savehist-mode~)