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

Make checkdoc happy

Browse source
This commit is contained in:
Adam Kruszewski 2023-06-26 11:54:40 +02:00
parent b926821097
commit 111cd5de5f
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
corfu-candidate-overlay.el
View file

@ -50,8 +50,7 @@
(defcustom corfu-candidate-overlay-auto-commands (defcustom corfu-candidate-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)
@ -67,7 +66,8 @@
"Face used for the overlay when there is only one candidate.") "Face used for the overlay when there is only one candidate.")
(defun corfu-candidate-overlay--prepare (position) (defun corfu-candidate-overlay--prepare (position)
"Sets the default properties of the candidates overlay. "Set the default properties of the candidates overlay.
Moves the overlay to `POSITION', creating it when needed.
The overlay can be dismissed with a mouse click." The overlay can be dismissed with a mouse click."
(when (not corfu-candidate-overlay-map) (when (not corfu-candidate-overlay-map)
(setq corfu-candidate-overlay-map (make-sparse-keymap)) (setq corfu-candidate-overlay-map (make-sparse-keymap))
@ -84,15 +84,15 @@
(overlay-put corfu-candidate-overlay--overlay 'priority 1000)))) (overlay-put corfu-candidate-overlay--overlay 'priority 1000))))
(defun corfu-candidate-overlay--get-overlay-property (property) (defun corfu-candidate-overlay--get-overlay-property (property)
"Returns the value of overlays' property" "Return the value of candidate overlay `PROPERTY`."
(overlay-get corfu-candidate-overlay--overlay property)) (overlay-get corfu-candidate-overlay--overlay property))
(defun corfu-candidate-overlay--set-overlay-property (property value) (defun corfu-candidate-overlay--set-overlay-property (property value)
"Returns the value of overlays' property" "Set the `VALUE' of candidate overlay `PROPERTY'."
(overlay-put corfu-candidate-overlay--overlay property value)) (overlay-put corfu-candidate-overlay--overlay property value))
(defun corfu-candidate-overlay--update (position prefix candidate how-many-candidates) (defun corfu-candidate-overlay--update (position prefix candidate how-many-candidates)
"Updates the candidate overlay with the first candidate found by Corfu." "Update the candidate overlay with the first candidate found by Corfu. Move the overlay to `POSITION` and store the `PREFIX` and `CANDIDATE` as overlay's properties. Depending on the `HOW-MANY-CANDIDATES` the overlay face is set to either `corfu-candidate-overlay-face-exact-match' (exactly one match) or `corfu-candidate-overlay-face' (more matches)."
(corfu-candidate-overlay--prepare position) (corfu-candidate-overlay--prepare position)
(unless (string-empty-p candidate) (unless (string-empty-p candidate)
@ -128,9 +128,11 @@
(corfu-candidate-overlay--set-overlay-property 'after-string ""))) (corfu-candidate-overlay--set-overlay-property 'after-string "")))
(defun corfu-candidate-overlay--show () (defun corfu-candidate-overlay--show ()
"Computes completion candidates just like Corfu and updats the candidate "Show completion candidate overlay.
overlay to reflect the first one. Uses different face when there is only Completion candidates are computed like Corfu does.
one candidate available (defaults to underline)." The overlay is updated to reflect the first one found.
Uses different face when there is only one candidate available
\(defaults to underline), see ``corfu-candidate-overlay-face-exact-match' and `corfu-candidate-overlay-face' faces for customization"
(let ((value (while-no-input ;; Interruptible capf query (let ((value (while-no-input ;; Interruptible capf query
(run-hook-wrapped 'completion-at-point-functions #'corfu--capf-wrapper)))) (run-hook-wrapped 'completion-at-point-functions #'corfu--capf-wrapper))))
@ -221,8 +223,7 @@
(corfu-candidate-overlay--hide))))) (corfu-candidate-overlay--hide)))))
(defun corfu-candidate-overlay--post-command () (defun corfu-candidate-overlay--post-command ()
"Post command hook updating the candidate overlay when user inserts character "Post command hook updating the candidate overlay when user types character and the cursor is at the end of word."
and the cursor is at the end of word."
;; We should not throw an error here, as Emacs will disable ;; We should not throw an error here, as Emacs will disable
;; the hook if it fails with an error (and auto suggestion backends ;; the hook if it fails with an error (and auto suggestion backends
;; can and do throw errors sometimes, corfu even have a readme section ;; can and do throw errors sometimes, corfu even have a readme section