Maciej Szlosarczyk
b0361861b4
Some checks failed
/ Test config on 20 (push) Failing after 53s
Make the editor load faster by deferring as much as possible until later use. For example, LSP load is now deferred until first use and no longer blocking. Use only elixir-format from elixir-mode, for similar speed reasons. The rest of the package has been taken over by the treesitter version of the mode.
76 lines
2.8 KiB
EmacsLisp
76 lines
2.8 KiB
EmacsLisp
;;; 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:
|
|
|
|
(require 'icejam-keys-mode)
|
|
|
|
;; 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)
|
|
(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)
|
|
|
|
;; 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
|
|
|
|
;; 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 partial-completion 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
|