scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 12:30:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

add arrow to mark current candidate

Browse Source
This commit is contained in:
Thomas von Dein
2023-05-30 10:36:08 +02:00
parent ef912b4029
commit afab2193fc
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/init-smarter-than-emacs.el
View File

@@ -70,6 +70,23 @@ a remote file anytime and from everywhere I am by just entering :"
(delete-char -1))) (delete-char -1)))
(delete-char -1))) (delete-char -1)))
;; via vertico wiki, prefix current candidate with an arrow
(defvar +vertico-current-arrow t)
(cl-defmethod vertico--format-candidate :around
(cand prefix suffix index start &context ((and +vertico-current-arrow
(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)))
:bind (:map vertico-map :bind (:map vertico-map
("~" . tvd-vertico-jump-home) ("~" . tvd-vertico-jump-home)
(":" . tvd-vertico-jump-ssh) (":" . tvd-vertico-jump-ssh)