refactor(corfu): conform to naming conventions
This commit is contained in:
parent
ce84690dc5
commit
b3ef202451
3 changed files with 6 additions and 6 deletions
|
@ -1,7 +1,7 @@
|
|||
;;; completion/corfu/autoload.el -*- lexical-binding: t; -*-
|
||||
|
||||
;;;###autoload
|
||||
(defun +corfu-move-to-minibuffer ()
|
||||
(defun +corfu/move-to-minibuffer ()
|
||||
"Move the current list of candidates to your choice of minibuffer completion UI."
|
||||
(interactive)
|
||||
(pcase completion-in-region--data
|
||||
|
@ -27,7 +27,7 @@
|
|||
(t (error "No minibuffer completion UI available for moving to!")))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +corfu-smart-sep-toggle-escape ()
|
||||
(defun +corfu/smart-sep-toggle-escape ()
|
||||
"Insert `corfu-separator' or toggle escape if it's already there."
|
||||
(interactive)
|
||||
(cond ((and (char-equal (char-before) corfu-separator)
|
||||
|
|
|
@ -74,8 +74,8 @@ TAB/S-TAB.")
|
|||
tab-always-indent 'complete)
|
||||
(add-to-list 'completion-category-overrides `(lsp-capf (styles ,@completion-styles)))
|
||||
(add-to-list 'corfu-auto-commands #'lispy-colon)
|
||||
(add-to-list 'corfu-continue-commands #'+corfu-move-to-minibuffer)
|
||||
(add-to-list 'corfu-continue-commands #'+corfu-smart-sep-toggle-escape)
|
||||
(add-to-list 'corfu-continue-commands #'+corfu/move-to-minibuffer)
|
||||
(add-to-list 'corfu-continue-commands #'+corfu/smart-sep-toggle-escape)
|
||||
(add-hook 'evil-insert-state-exit-hook #'corfu-quit)
|
||||
|
||||
;; HACK: If you want to update the visual hints after completing minibuffer
|
||||
|
|
|
@ -461,8 +461,8 @@ Continues comments if executed from a commented line. Consults
|
|||
(map! :when (modulep! :completion corfu)
|
||||
:after corfu
|
||||
(:map corfu-map
|
||||
[remap corfu-insert-separator] #'+corfu-smart-sep-toggle-escape
|
||||
"C-S-s" #'+corfu-move-to-minibuffer
|
||||
[remap corfu-insert-separator] #'+corfu/smart-sep-toggle-escape
|
||||
"C-S-s" #'+corfu/move-to-minibuffer
|
||||
"C-p" #'corfu-previous
|
||||
"C-n" #'corfu-next))
|
||||
(let ((cmds-del
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue