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

Highlight whole line (candidate) on hover

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