Highlight whole line (candidate) on hover
This commit is contained in:
parent
009d818895
commit
d121e4e40e
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue