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 the completion-category-overrides

Browse source
This commit is contained in:
Protesilaos 2026-07-29 15:49:53 +03:00
parent 6d4b0527a5
commit 4b5d83b693
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 22 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -22,40 +22,33 @@
(eager-update . t))) (eager-update . t)))
(eager-update-properties-no-sort (append eager-update-properties (list (cons 'display-sort-function #'identity))))) (eager-update-properties-no-sort (append eager-update-properties (list (cons 'display-sort-function #'identity)))))
(setq completion-category-overrides (setq completion-category-overrides
`((file . ((styles . (partial-completion)) `((file . (,@eager-update-properties
(eager-display . nil) (styles . (partial-completion))
(eager-update . t)
(group-function . ,#'prot-minibuffer-file-group) (group-function . ,#'prot-minibuffer-file-group)
(affixation-function . ,#'prot-minibuffer-file-affixate) (affixation-function . ,#'prot-minibuffer-file-affixate)
(display-sort-function . ,#'prot-minibuffer-file-sort))) (display-sort-function . ,#'prot-minibuffer-file-sort)))
(bookmark . (,@eager-update-properties (buffer . (,@eager-update-properties
(affixation-function . ,#'prot-minibuffer-bookmark-affixate))) (affixation-function . ,#'prot-minibuffer-buffer-affixate)))
(project-file . (,@eager-update-properties (project-file . (,@eager-update-properties
(group-function . ,#'prot-minibuffer-file-group) (group-function . ,#'prot-minibuffer-file-group)
(affixation-function . ,#'prot-minibuffer-file-affixate))) (affixation-function . ,#'prot-minibuffer-file-affixate)))
(prot-minibuffer-library . (,@eager-update-properties (prot-minibuffer-library . (,@eager-update-properties
(annotation-function . ,#'prot-minibuffer-library-annotate) (annotation-function . ,#'prot-minibuffer-library-annotate)
(display-sort-function . ,#'prot-minibuffer-library-sort))) (display-sort-function . ,#'prot-minibuffer-library-sort)))
(symbol-help . (,@eager-update-properties (bookmark . (,@eager-update-properties
(group-function . ,#'prot-minibuffer-symbol-group) (affixation-function . ,#'prot-minibuffer-bookmark-affixate)))
(display-sort-function . ,#'prot-minibuffer-symbol-sort))) (command . (,@eager-update-properties
(buffer . (,@eager-update-properties (affixation-function . nil) ; so that the `annotation-function' can take effect
;; NOTE 2026-07-25: I am disabling this because it messes up with the sorting.
;; (group-function . ,#'prot-minibuffer-buffer-group)
(affixation-function . ,#'prot-minibuffer-buffer-affixate)
(display-sort-function . ,#'prot-minibuffer-buffer-sort)))
(command . ((affixation-function . nil)
(annotation-function . ,#'prot-minibuffer-command-annotate))) (annotation-function . ,#'prot-minibuffer-command-annotate)))
(symbol-help . ,eager-update-properties)
(denote-file . ,eager-update-properties) (denote-file . ,eager-update-properties)
(prot-minibuffer-emoji . ,eager-update-properties) (prot-minibuffer-emoji . ,eager-update-properties)
(theme . ,eager-update-properties) (theme . ,eager-update-properties)
(unicode-name . ,eager-update-properties) (unicode-name . ,eager-update-properties)
(imenu . ,eager-update-properties-no-sort) (imenu . ,eager-update-properties-no-sort)
(consult-location . ,eager-update-properties-no-sort) (consult-location . ,eager-update-properties-no-sort)
(prot-minibuffer-kill-ring . ((eager-display . t) (prot-minibuffer-pass . ,eager-update-properties-no-sort)
(eager-update . t) (prot-minibuffer-kill-ring . ,eager-update-properties-no-sort)))))
(display-sort-function . identity)))
(prot-minibuffer-pass . ((display-sort-function . minibuffer-sort-by-history)))))))
;;; Orderless completion style (and prot-orderless.el) ;;; Orderless completion style (and prot-orderless.el)
(when prot-emacs-completion-extras (when prot-emacs-completion-extras

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

@ -4192,40 +4192,33 @@ for this.
(eager-update . t))) (eager-update . t)))
(eager-update-properties-no-sort (append eager-update-properties (list (cons 'display-sort-function #'identity))))) (eager-update-properties-no-sort (append eager-update-properties (list (cons 'display-sort-function #'identity)))))
(setq completion-category-overrides (setq completion-category-overrides
`((file . ((styles . (partial-completion)) `((file . (,@eager-update-properties
(eager-display . nil) (styles . (partial-completion))
(eager-update . t)
(group-function . ,#'prot-minibuffer-file-group) (group-function . ,#'prot-minibuffer-file-group)
(affixation-function . ,#'prot-minibuffer-file-affixate) (affixation-function . ,#'prot-minibuffer-file-affixate)
(display-sort-function . ,#'prot-minibuffer-file-sort))) (display-sort-function . ,#'prot-minibuffer-file-sort)))
(bookmark . (,@eager-update-properties (buffer . (,@eager-update-properties
(affixation-function . ,#'prot-minibuffer-bookmark-affixate))) (affixation-function . ,#'prot-minibuffer-buffer-affixate)))
(project-file . (,@eager-update-properties (project-file . (,@eager-update-properties
(group-function . ,#'prot-minibuffer-file-group) (group-function . ,#'prot-minibuffer-file-group)
(affixation-function . ,#'prot-minibuffer-file-affixate))) (affixation-function . ,#'prot-minibuffer-file-affixate)))
(prot-minibuffer-library . (,@eager-update-properties (prot-minibuffer-library . (,@eager-update-properties
(annotation-function . ,#'prot-minibuffer-library-annotate) (annotation-function . ,#'prot-minibuffer-library-annotate)
(display-sort-function . ,#'prot-minibuffer-library-sort))) (display-sort-function . ,#'prot-minibuffer-library-sort)))
(symbol-help . (,@eager-update-properties (bookmark . (,@eager-update-properties
(group-function . ,#'prot-minibuffer-symbol-group) (affixation-function . ,#'prot-minibuffer-bookmark-affixate)))
(display-sort-function . ,#'prot-minibuffer-symbol-sort))) (command . (,@eager-update-properties
(buffer . (,@eager-update-properties (affixation-function . nil) ; so that the `annotation-function' can take effect
;; NOTE 2026-07-25: I am disabling this because it messes up with the sorting.
;; (group-function . ,#'prot-minibuffer-buffer-group)
(affixation-function . ,#'prot-minibuffer-buffer-affixate)
(display-sort-function . ,#'prot-minibuffer-buffer-sort)))
(command . ((affixation-function . nil)
(annotation-function . ,#'prot-minibuffer-command-annotate))) (annotation-function . ,#'prot-minibuffer-command-annotate)))
(symbol-help . ,eager-update-properties)
(denote-file . ,eager-update-properties) (denote-file . ,eager-update-properties)
(prot-minibuffer-emoji . ,eager-update-properties) (prot-minibuffer-emoji . ,eager-update-properties)
(theme . ,eager-update-properties) (theme . ,eager-update-properties)
(unicode-name . ,eager-update-properties) (unicode-name . ,eager-update-properties)
(imenu . ,eager-update-properties-no-sort) (imenu . ,eager-update-properties-no-sort)
(consult-location . ,eager-update-properties-no-sort) (consult-location . ,eager-update-properties-no-sort)
(prot-minibuffer-kill-ring . ((eager-display . t) (prot-minibuffer-pass . ,eager-update-properties-no-sort)
(eager-update . t) (prot-minibuffer-kill-ring . ,eager-update-properties-no-sort)))))
(display-sort-function . identity)))
(prot-minibuffer-pass . ((display-sort-function . minibuffer-sort-by-history)))))))
#+end_src #+end_src
*** The =prot-emacs-completion.el= for the ~orderless~ completion style *** The =prot-emacs-completion.el= for the ~orderless~ completion style