exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Mark current vertico candicate with fringe indicator

Browse Source 
The default highlighting is nice, but sometimes be hard to see due to text faces (e.g with
`consult-org-heading`).
This commit is contained in:
Daniel Borchmann 2025-09-04 19:34:00 +02:00
parent 613044b954
commit 145f99d5ae
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.el
View File

@ -2421,7 +2421,24 @@ Note that this workaround is incomplete, as explained in this comment."
:commands (vertico-mode) :commands (vertico-mode)
:autoload (vertico-sort-history-alpha :autoload (vertico-sort-history-alpha
vertico-sort-alpha) vertico-sort-alpha)
:init (setq vertico-sort-function #'vertico-sort-history-alpha)) :init (setq vertico-sort-function #'vertico-sort-history-alpha)
:config (progn
;; Mark current candiate with pointer, because highlighting might sometimes be hard to
;; see; cf. https://github.com/minad/vertico/wiki#prefix-current-candidate-with-arrow.
(cl-defmethod vertico--format-candidate :around
(cand prefix suffix index start &context ((not (bound-and-true-p vertico-flat-mode))
(eql t)))
(setq cand (cl-call-next-method cand prefix suffix index start))
(if (bound-and-true-p vertico-grid-mode)
(if (= vertico--index index)
(concat #("▶" 0 1 (face vertico-current)) cand)
(concat #("_" 0 1 (display " ")) cand))
(if (= vertico--index index)
(concat
#(" " 0 1 (display (left-fringe right-triangle vertico-current)))
cand)
cand)))))
(use-package orderless (use-package orderless
:ensure t :ensure t