From b0377f3f9b91f08de96d5ecacf3644ab310f810c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 6 Apr 2021 12:44:49 -0500
Subject: Switch `icomplete-vertical' for `vertico'

---
 init.el | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 535bbbb..abb469d 100644
--- a/init.el
+++ b/init.el
@@ -226,7 +226,10 @@
            icomplete-show-matches-on-no-input t
            icomplete-with-buffer-completion-tables t
            icomplete-in-buffer t
-           completion-styles '(partial-completion substring flex))
+           completion-styles '(partial-completion substring flex)
+           completion-category-defaults nil
+           completion-category-overrides
+           '((file (styles . (partial-completion)))))
   (fido-mode -1)
   (icomplete-mode +1))
 
@@ -593,19 +596,14 @@ call `zzz-to-char'."
   (global-undo-fu-session-mode +1))
 
 ;;;; Minibuffer
-
-;;;;; Icomplete-vertical
-(setup (:straight icomplete-vertical)
-  (let ((map icomplete-minibuffer-map))
-    (let ((command #'icomplete-forward-completions))
-      (define-key map (kbd "<down>") command)
-      (define-key map (kbd "C-n") command))
-    (let ((command #'icomplete-backward-completions))
-      (define-key map (kbd "<up>") command)
-      (define-key map (kbd "C-p") command))
-    (define-key map (kbd "RET") #'icomplete-force-complete-and-exit)
-    (define-key map (kbd "C-RET") #'minibuffer-complete-and-exit))
-  (icomplete-vertical-mode +1))
+(setup (:straight (vertico
+                   :host github
+                   :repo "minad/vertico"))
+  (advice-add #'completing-read-multiple :filter-args
+              (defun crm-indicator (args)
+                (cons (concat "[CRM] " (car args)) (cdr args))))
+  (icomplete-mode -1)
+  (vertico-mode +1))
 
 ;;;;; Orderless
 (setup (:straight orderless)
-- 
cgit 1.4.1-21-gabe81