Skip to content

Commit

Permalink
tweak(corfu): better integration with eshell
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Jun 10, 2023
1 parent 0cad15f commit 174e3d8
Showing 1 changed file with 8 additions and 2 deletions.
10 changes: 8 additions & 2 deletions core/me-completion.el
Original file line number Diff line number Diff line change
Expand Up @@ -25,6 +25,8 @@
(use-package corfu
:straight t
:hook (minemacs-after-startup . global-corfu-mode)
:hook (eshell-mode . +corfu-less-intrusive-h)
:hook (minibuffer-setup . +corfu-enable-in-minibuffer-h)
:init
(add-to-list
'load-path
Expand All @@ -39,13 +41,17 @@
(keymap-set corfu-map "C-j" 'corfu-next)
(keymap-set corfu-map "C-k" 'corfu-previous))

(defun +corfu-enable-in-minibuffer ()
(defun +corfu-enable-in-minibuffer-h ()
"Enable Corfu in the minibuffer if `completion-at-point' is bound."
(when (where-is-internal #'completion-at-point (list (current-local-map)))
(setq-local corfu-auto nil) ; Enable/disable auto completion
(corfu-mode 1)))

(add-hook 'minibuffer-setup-hook #'+corfu-enable-in-minibuffer))
(defun +corfu-less-intrusive ()
(setq-local corfu-quit-at-boundary t
corfu-quit-no-match t
corfu-auto nil)
(corfu-mode 1)))

(use-package corfu-popupinfo
:hook (corfu-mode . corfu-popupinfo-mode)
Expand Down

0 comments on commit 174e3d8

Please sign in to comment.