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

19
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
(let ((line (car cands)))
(setq line (concat line (make-string (- (cadr fcands)
(string-width line))
? )))
(add-text-properties 0 (length line)
`(mouse-face `(mouse-face
corfu-mouse corfu-mouse
keymap keymap
,(corfu-mouse--candidate-map index)) ,(corfu-mouse--candidate-map index))
cand) line)
(setq index (1+ index))) (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)