adam/corfu-candidate-overlay
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rename faces to reasemble non-internal names

Browse source 
Added provides to allow loading using use-package.
This commit is contained in:
Adam Kruszewski 2023-05-08 16:39:06 +02:00
parent 71bff98bd4
commit cf6ddeffab
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
corfu-candidate-overlay.el
View file

@ -50,20 +50,20 @@
(defcustom corfu-overlay-auto-commands (defcustom corfu-overlay-auto-commands
'("delete-backward-char\\'" "backward-delete-char-untabify") '("delete-backward-char\\'" "backward-delete-char-untabify")
"Additional commands apart from corfu-auto-commands which initiate "Additional commands apart from ``corfu-auto-commands'' which initiate
completion candidate overlay." completion candidate overlay."
:type '(repeat (choice regexp symbol)) :type '(repeat (choice regexp symbol))
:group 'corfu) :group 'corfu)
(defface corfu--candidate-overlay-face (defface corfu-candidate-overlay-face
'((((background light)) '((((background light))
:foreground "MistyRose4") :foreground "MistyRose4")
(((background dark)) (((background dark))
:foreground "wheat")) :foreground "wheat"))
"Face used for the overlay with the first candidate.") "Face used for the overlay with the first candidate.")
(defface corfu--candidate-overlay-face-exact-match (defface corfu-candidate-overlay-face-exact-match
'((t (:inherit 'corfu--candidate-overlay-face :underline t))) '((t (:inherit 'corfu-candidate-overlay-face :underline t)))
"Face used for the overlay when there is only one candidate.") "Face used for the overlay when there is only one candidate.")
(defun corfu--candiate-overlay-prepare (position) (defun corfu--candiate-overlay-prepare (position)
@ -112,8 +112,8 @@
(propertize (propertize
candidate candidate
'face (if (= how-many-candidates 1) 'face (if (= how-many-candidates 1)
'corfu--candidate-overlay-face-exact-match 'corfu-candidate-overlay-face-exact-match
'corfu--candidate-overlay-face) 'corfu-candidate-overlay-face)
'keymap corfu--candidate-overlay-map))) 'keymap corfu--candidate-overlay-map)))
(defun corfu-hide-candidate-overlay () (defun corfu-hide-candidate-overlay ()
@ -320,3 +320,4 @@
(message "Disabled `corfu-candidate-overlay-mode'.")))) (message "Disabled `corfu-candidate-overlay-mode'."))))
;;; corfu-candidate-overlay.el ends here ;;; corfu-candidate-overlay.el ends here
(provide 'corfu-candidate-overlay)