Move some stuff

user-lisp/icejam-completing-read.el

@@ -0,0 +1,84 @@
+;;; icejam-completing-read -- Functions related to completing-read -*- lexical-binding: t; -*-
+;;; Commentary:
+;;;
+;;; completing-read is the way of completing things in minibuffer.  This module
+;;; provides all of that functionality, everything related to minbuffer being
+;;; helpful.
+;;;
+;;; Code:
+(eval-when-compile
+  (defvar icejam-keys-mode-map)
+  (defvar crm-separator))
+
+;; Preparations for using Vertico/Orderless
+(setopt
+ ;; 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
+ ;; Do not allow the cursor in the minibuffer prompt
+ minibuffer-prompt-properties
+ '(read-only t cursor-intangible t face minibuffer-prompt))
+
+(defun crm-indicator (args)
+  "Work with ARGS in `completing-read-multiple`."
+  (cons (format "[CRM%s] %s"
+                (replace-regexp-in-string
+                 "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
+                 crm-separator)
+                (car args))
+        (cdr args)))
+(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
+(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
+
+;; Vertico relies on Emacs 31 compatibility
+(use-package compat :ensure t)
+
+;; Actual orderless
+(use-package vertico :ensure t :defer t
+  :hook ((elpaca-after-init . vertico-mode))
+  :config
+  (setopt vertico-scroll-margin 1) ;; Scroll on N-1
+  (setopt vertico-count 15)        ;; Show 5 more candidates
+  (setopt vertico-resize t) ;; Grow and shrink the vertico minibufffer
+  (setopt vertico-cycle t)  ;; Cycle completion
+
+  ;; Use H-enter to submit current value instead of first matching candidate
+  (keymap-set vertico-map "H-<return>" 'vertico-exit-input)
+
+  ;; Add working page up /down
+  (keymap-set vertico-map "<next>" 'vertico-scroll-up)
+  (keymap-set vertico-map "<prior>" 'vertico-scroll-down))
+
+(use-package orderless :ensure t
+  :config
+  ;; Fallback to basic if orderless does not work.
+  (setopt completion-styles '(orderless basic))
+  (setopt completion-category-defaults nil)
+  (setopt completion-category-overrides '((file (styles partial-completion)))))
+
+(use-package marginalia :ensure t :defer t
+  :hook ((elpaca-after-init . marginalia-mode)))
+
+(use-package consult :ensure t
+  :config
+  ;; Using ripgrep, show hidden files but ignore contents of .git
+  (setopt consult-ripgrep-args
+          "rg --null --line-buffered --color=never --max-columns=1000 \
+--path-separator / --smart-case --no-heading --with-filename --line-number \
+--search-zip --hidden --glob \"!.git/*\"")
+  :bind (:map icejam-keys-mode-map
+              ("C-c t" . find-file)
+              ("M-g g" . consult-goto-line)
+              ("C-c a" . consult-ripgrep)))
+
+(use-package helpful :ensure t :defer t
+  :bind (([remap describe-key] . helpful-key)
+         ([remap describe-variable] . helpful-variable)
+         ([remap describe-function] . helpful-callable)
+         ([remap describe-command] . helpful-command)))
+
+(provide 'icejam-completing-read)
+;;; icejam-completing-read.el ends here