From 8a272e686074b41dcf3f336932681b4ac3e56e69 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 20 May 2022 03:07:03 +0100
Subject: completion: trying vertico for completion-in-region for a while

---
 completion.org | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'completion.org')

diff --git a/completion.org b/completion.org
index 8d7467a..c1fd686 100644
--- a/completion.org
+++ b/completion.org
@@ -171,9 +171,8 @@
                   (bound-and-true-p vertico--input))
         (corfu-mode 1)))
 
-    (add-hook 'minibuffer-setup-hook #'corfu-in-minibuffer 1)
-
-    (global-corfu-mode 1)
+    ;; (add-hook 'minibuffer-setup-hook #'corfu-in-minibuffer 1)
+    ;; (global-corfu-mode 1)
 
   #+end_src
 * vertico
@@ -187,6 +186,14 @@
             org-refile-use-outline-path t)
 
       :config
+      ;; Use `consult-completion-in-region' if Vertico is enabled.
+      ;; Otherwise use the default `completion--in-region' function.
+      (setq completion-in-region-function
+            (lambda (&rest args)
+              (apply (if vertico-mode
+                         #'consult-completion-in-region
+                       #'completion--in-region)
+                     args)))
 
       (defun jao-vertico--display-candidates (lines)
         (move-overlay vertico--candidates-ov (point-min) (point-min))
@@ -201,8 +208,7 @@
       :bind (:map vertico-map (("RET" . vertico-directory-enter)
                                ("M-<backspace>" . vertico-directory-delete-word)
                                ("<backspace>" . vertico-directory-delete-char))))
-
-   (vertico-mode)
+    (vertico-mode)
 
   #+end_src
 * consult
-- 
cgit v1.2.3