Replace projectile with project.el and counsel with vertico

lisp/icejam-completing-read.el

@@ -0,0 +1,63 @@
+;;; icejam-completing-read -- Functions related to completing-read -*- lexical-binding: t; -*-
+;;; Commentary:
+;;;
+;;; Code:
+
+(require 'icejam-keys-mode)
+
+(use-package vertico :straight t :defer t
+  :init
+  (vertico-mode)
+  :custom
+  (vertico-scroll-margin 0) ;; Different scroll margin
+  (vertico-count 15) ;; Show more candidates
+  (vertico-resize t) ;; Grow and shrink the Vertico minibuffer
+  (vertico-cycle t) ;; Enable cycling for `vertico-next/previous')
+  )
+
+;; A few more useful configurations...
+(use-package emacs
+  :custom
+  ;; Support opening new minibuffers from inside existing minibuffers.
+  (enable-recursive-minibuffers t)
+  ;; Hide commands in M-x which do not work in the current mode.  Vertico
+  ;; commands are hidden in normal buffers. This setting is useful beyond
+  ;; Vertico.
+  (read-extended-command-predicate #'command-completion-default-include-p)
+  :init
+  ;; Add prompt indicator to `completing-read-multiple'.
+  ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
+  (defun crm-indicator (args)
+    (cons (format "[CRM%s] %s"
+                  (replace-regexp-in-string
+                   "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
+                   crm-separator)
+                  (car args))
+          (cdr args)))
+  (advice-add #'completing-read-multiple :filter-args #'crm-indicator)
+
+  ;; Do not allow the cursor in the minibuffer prompt
+  (setq minibuffer-prompt-properties
+        '(read-only t cursor-intangible t face minibuffer-prompt))
+  (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode))
+
+;; Optionally use the `orderless' completion style.
+(use-package orderless :straight t :defer t
+  :custom
+  ;; Configure a custom style dispatcher (see the Consult wiki)
+  ;; (orderless-style-dispatchers '(+orderless-consult-dispatch orderless-affix-dispatch))
+  ;; (orderless-component-separator #'orderless-escapable-split-on-space)
+  (completion-styles '(orderless basic))
+  (completion-category-defaults nil)
+  (completion-category-overrides '((file (styles partial-completion)))))
+
+(use-package marginalia :straight t :defer t :init (marginalia-mode))
+(use-package consult :straight t :defer t)
+(use-package helpful :straight t :defer t)
+
+(with-eval-after-load 'consult
+  (define-key icejam-keys-mode-map (kbd "C-c a") 'consult-ripgrep)
+  (define-key icejam-keys-mode-map (kbd "C-c t") 'find-file))
+
+(provide 'icejam-completing-read)
+;;; icejam-completing-read.el ends here