corfu config

1 files changed, 14 insertions, 0 deletions

diff --git a/attic/misc.el b/attic/misc.el
index 038072b..7fb45c9 100644
--- a/attic/misc.el
+++ b/attic/misc.el
@@ -128,6 +128,20 @@
   :init (setq twtxt-file (expand-file-name "~/doc/jao.io/twtxt")
               twtxt-following
               '(("yarn" "https://twtxt.net/user/news/twtxt.txt"))))
+;;; corfu bits
+(defun jao-corfu-enable-no-auto ()
+  (setq-local corfu-auto nil)
+  (corfu-mode 1))
+
+(defmacro jao-corfu-no-auto (mode)
+  (let ((mode-name (intern (format "%s-mode" mode)))
+        (hook-name (intern (format "%s-mode-hook" mode))))
+    `(with-eval-after-load ',mode
+       (add-to-list 'corfu-excluded-modes ',mode-name)
+       (add-hook ',hook-name #'jao-corfu-enable-no-auto))))
+
+(jao-corfu-no-auto eshell)
+
 ;;; gnus bits
 
 (jao-transient-major-mode gnus-group