Change to company

disabled.el

@@ -140,3 +140,41 @@
 ;;   (setq inferior-lisp-program "/usr/bin/sbcl")
 ;;   :config
 ;;   (sly-symbol-completion-mode -1))
+
+;; corfu (autocomplete)
+;; (use-package corfu
+;;   :bind (("M-<tab>" . completion-at-point)
+;;          :map corfu-map
+;;          ("M-SPC" . corfu-insert-separator)
+;;          ("M-m" . my/corfu-move-to-minibuffer))
+;;   :init
+;;   (defun my/corfu-move-to-minibuffer ()
+;;     (interactive)
+;;     (when completion-in-region--data
+;;       (let ((completion-extra-properties corfu--extra)
+;;             completion-cycle-threshold completion-cycling)
+;;         (apply #'consult-completion-in-region completion-in-region--data))))
+;;   (setq corfu-cycle t
+;;         corfu-auto t
+;;         corfu-on-exact-match nil
+;;         completion-cycle-threshold nil)
+;;   (global-corfu-mode 1)
+;;   (corfu-popupinfo-mode 1)
+;;   :config
+;;   (add-to-list 'corfu-continue-commands #'my/corfu-move-to-minibuffer))
+;; (use-package corfu-terminal
+;;   :init
+;;   (corfu-terminal-mode 1))
+
+;; ;; cape (a bunch of capfs!)
+;; (use-package cape
+;;   :bind (("C-c p" . cape-dabbrev)
+;;          ([remap dabbrev-expand] . cape-dabbrev)
+;;          ("C-c P" . cape-line)
+;;          ("C-c f" . cape-file))
+;;   :hook (text-mode . my/-cape-setup-text-mode)
+;;   :init
+;;   (defun my/-cape-setup-text-mode ()
+;;     (setq-local completion-at-point-functions
+;;                 '(cape-dict cape-dabbrev)
+;;                 corfu-auto nil)))