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

fix(corfu): use :filter instead of :enable

Browse source
This commit is contained in:
StrawberryTea 2024-02-23 10:19:55 -06:00 • committed by Luigi Sartor Piucco
parent a1ba1593fc
commit b96778497b
No known key found for this signature in database
GPG key ID: 6FF1A01853A47A66
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -481,13 +481,16 @@ Continues comments if executed from a commented line. Consults
"C-S-d" (cmd! (funcall-interactively #'corfu-popupinfo-scroll-up corfu-popupinfo-min-height))) "C-S-d" (cmd! (funcall-interactively #'corfu-popupinfo-scroll-up corfu-popupinfo-min-height)))
(:map corfu-map (:map corfu-map
"C-<return>" '(menu-item "Conclude the minibuffer" exit-minibuffer "C-<return>" '(menu-item "Conclude the minibuffer" exit-minibuffer
:enable (minibufferp nil t)) :filter (lambda (cmd) (when (minibufferp nil t) cmd)))
"S-<return>" '(menu-item "Insert completion and conclude" +corfu-complete-and-exit-minibuffer "S-<return>" '(menu-item "Insert completion and conclude"
:enable (minibufferp nil t)))) +corfu-complete-and-exit-minibuffer
:filter (lambda (cmd) (when (minibufferp nil t) cmd)))))
(when-let ((cmds-del (and (modulep! :completion corfu +tng) (when-let ((cmds-del (and (modulep! :completion corfu +tng)
'(menu-item "Reset completion" corfu-reset '(menu-item "Reset completion" corfu-reset
:enable (and (> corfu--index -1) :filter (lambda (cmd)
(eq corfu-preview-current 'insert))))) (when (and (>= corfu--index 0)
(eq corfu-preview-current 'insert))
cmd)))))
(cmds-ret '(menu-item "Insert completion" corfu-insert (cmds-ret '(menu-item "Insert completion" corfu-insert
:filter (lambda (cmd) :filter (lambda (cmd)
(if (eq corfu--index -1) (if (eq corfu--index -1)