From 4a9252b1144b548703df4c1c51141e38284b2381 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 20 Apr 2021 14:24:23 -0500
Subject: Use company for completion-in-region instead of corfu

I found out it does completion-in-region, and honestly, it's a better
interface, and more uniform.
---
 init.el | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 4cef620..6627a82 100644
--- a/init.el
+++ b/init.el
@@ -691,7 +691,13 @@ if ripgrep is installed, otherwise `consult-grep'."
            xref-show-definitions-function #'consult-xref)
 
   ;; Projects
-  (:option consult-project-root-function #'vc-root-dir))
+  (:option consult-project-root-function #'vc-root-dir)
+
+  ;; Competion-at-point (complete-region)
+  (:global "M-/" completion-at-point)
+  (:option completion-in-region-function #'consult-completion-in-region
+           completion-cycle-threshold 3
+           tab-always-indent 'complete))
 
 (setup (:straight marginalia)
   (:option marginalia-annotators '(marginalia-annotators-heavy
@@ -779,18 +785,6 @@ if ripgrep is installed, otherwise `consult-grep'."
                      (apheleia--get-formatter-command)))
       (indent-region (point-min) (point-max)))))
 
-(setup (:straight (corfu
-                   :host github
-                   :repo "minad/corfu"))
-  (:option completion-cycle-threshold 3
-           tab-always-indent 'complete
-           corfu-cycle t)
-  (:with-map corfu-map
-    (:bind "TAB" corfu-next
-           "S-TAB" corfu-previous))
-  (:hook-into prog-mode
-              eshell-mode))
-
 ;;; Lisps
 (defvar lispy-modes '(emacs-lisp-mode
                       eval-expression-minibuffer
-- 
cgit 1.4.1-21-gabe81