emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactor(corfu): conform to naming conventions

Browse source
This commit is contained in:
Henrik Lissner 2024-07-12 19:08:10 -04:00
parent ce84690dc5
commit b3ef202451
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/completion/corfu/autoload.el
View file

@ -1,7 +1,7 @@
;;; completion/corfu/autoload.el -*- lexical-binding: t; -*- ;;; completion/corfu/autoload.el -*- lexical-binding: t; -*-
;;;###autoload ;;;###autoload
(defun +corfu-move-to-minibuffer () (defun +corfu/move-to-minibuffer ()
"Move the current list of candidates to your choice of minibuffer completion UI." "Move the current list of candidates to your choice of minibuffer completion UI."
(interactive) (interactive)
(pcase completion-in-region--data (pcase completion-in-region--data
@ -27,7 +27,7 @@
(t (error "No minibuffer completion UI available for moving to!"))))))) (t (error "No minibuffer completion UI available for moving to!")))))))
;;;###autoload ;;;###autoload
(defun +corfu-smart-sep-toggle-escape () (defun +corfu/smart-sep-toggle-escape ()
"Insert `corfu-separator' or toggle escape if it's already there." "Insert `corfu-separator' or toggle escape if it's already there."
(interactive) (interactive)
(cond ((and (char-equal (char-before) corfu-separator) (cond ((and (char-equal (char-before) corfu-separator)

4
modules/completion/corfu/config.el
View file

@ -74,8 +74,8 @@ TAB/S-TAB.")
tab-always-indent 'complete) tab-always-indent 'complete)
(add-to-list 'completion-category-overrides `(lsp-capf (styles ,@completion-styles))) (add-to-list 'completion-category-overrides `(lsp-capf (styles ,@completion-styles)))
(add-to-list 'corfu-auto-commands #'lispy-colon) (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/move-to-minibuffer)
(add-to-list 'corfu-continue-commands #'+corfu-smart-sep-toggle-escape) (add-to-list 'corfu-continue-commands #'+corfu/smart-sep-toggle-escape)
(add-hook 'evil-insert-state-exit-hook #'corfu-quit) (add-hook 'evil-insert-state-exit-hook #'corfu-quit)
;; HACK: If you want to update the visual hints after completing minibuffer ;; HACK: If you want to update the visual hints after completing minibuffer

4
modules/config/default/config.el
View file

@ -461,8 +461,8 @@ Continues comments if executed from a commented line. Consults
(map! :when (modulep! :completion corfu) (map! :when (modulep! :completion corfu)
:after corfu :after corfu
(:map corfu-map (:map corfu-map
[remap corfu-insert-separator] #'+corfu-smart-sep-toggle-escape [remap corfu-insert-separator] #'+corfu/smart-sep-toggle-escape
"C-S-s" #'+corfu-move-to-minibuffer "C-S-s" #'+corfu/move-to-minibuffer
"C-p" #'corfu-previous "C-p" #'corfu-previous
"C-n" #'corfu-next)) "C-n" #'corfu-next))
(let ((cmds-del (let ((cmds-del