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

fix(corfu): eval lambdas

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

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

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