materus/emacs-corfu-mouse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Highlight whole line (candidate) on hover

Browse Source
This commit is contained in:
Akib Azmain Turja 2022-06-27 00:43:51 +06:00
parent 009d818895
commit d121e4e40e
No known key found for this signature in database
GPG Key ID: 5535FCF54D88616B
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
corfu-mouse.el
View File

@ -67,18 +67,25 @@
map))
(defun corfu-mouse--format-candidates (fcands)
"Format candidatesq.
"Format candidates.
FCANDS is the return value of `corfu--format-candidates'."
(let ((index corfu--scroll))
(dolist (cand (caddr fcands))
(add-text-properties 0 (length cand)
`(mouse-face
corfu-mouse
keymap
,(corfu-mouse--candidate-map index))
cand)
(setq index (1+ index)))
(let ((index corfu--scroll)
(cands (caddr fcands)))
(while cands
(let ((line (car cands)))
(setq line (concat line (make-string (- (cadr fcands)
(string-width line))
? )))
(add-text-properties 0 (length line)
`(mouse-face
corfu-mouse
keymap
,(corfu-mouse--candidate-map index))
line)
(setcar cands line)
(setq cands (cdr cands))))
(setq index (1+ index))
fcands))
(defun corfu-mouse--scroll-up (n)