Changeset 279dc2a in dotfiles

Timestamp:

Oct 28, 2022, 3:57:25 PM (2 years ago)

Author:

w96k <w96k@…>

Branches:

master

Children:

8e15ad4

Parents:

a438ed9

Message:

Make corfu work in eshell/shell buffers

File:

• emacs/.emacs.d/.emacs-config.org (modified) (2 diffs)

emacs/.emacs.d/.emacs-config.org

@@ -856 +856 @@
       (corfu-mode 1)
       (defun show-default-completion-buffer ()
-          (interactive)
-          (corfu-quit)
-          (corfu-mode -1)
-          (completion-at-point)
-          (corfu-mode 1))
+        (interactive)
+        (corfu-quit)
+        (corfu-mode -1)
+        (completion-at-point)
+        (corfu-mode 1))
       (define-key corfu-map (kbd "M-TAB") 'show-default-completion-buffer)
       (define-key corfu-map (kbd "TAB") 'show-default-completion-buffer)
@@ -866 +866 @@
       (corfu-mode -1)
       (add-hook 'prog-mode-hook 'corfu-mode)
+
+      (defun corfu-send-shell (&rest _)
+        "Send completion candidate when inside comint/eshell."
+        (cond
+         ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
+          (eshell-send-input))
+         ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
+          (comint-send-input))))
+
+      (advice-add #'corfu-insert :after #'corfu-send-shell)
+      
       (add-hook 'eshell-mode-hook 'corfu-mode)))