Switch `icomplete-vertical' for `vertico'

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)