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

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

@ -480,19 +480,19 @@ 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-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))) "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
:filter (lambda (cmd) (when (minibufferp nil t) cmd))) :filter ,(lambda (cmd) (when (minibufferp nil t) cmd)))
"S-<return>" '(menu-item "Insert completion and conclude" "S-<return>" `(menu-item "Insert completion and conclude"
+corfu-complete-and-exit-minibuffer +corfu-complete-and-exit-minibuffer
:filter (lambda (cmd) (when (minibufferp nil t) cmd))))) :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
:filter (lambda (cmd) :filter ,(lambda (cmd)
(when (and (>= corfu--index 0) (when (and (>= corfu--index 0)
(eq corfu-preview-current 'insert)) (eq corfu-preview-current 'insert))
cmd))))) 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)
(corfu-quit) (corfu-quit)
cmd))))) cmd)))))