Adds consult/embark/vertico in emacs.

.emacs

@@ -86,6 +86,7 @@
 
 (use-package use-package-ensure-system-package)
 
+
 ;; required because vterm wants this before loading.
 (use-package emacs
 	:demand t
@@ -93,9 +94,198 @@
 		                       (cmake . cmake)
 		                       ("/usr/include/vterm.h" . libvterm-dev)
 		                       )
+
+	: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)
+
+	;; Emacs 28: Hide commands in M-x which do not work in the current mode.
+	;; Vertico commands are hidden in normal buffers.
+	(setq read-extended-command-predicate
+		#'command-completion-default-include-p)
+
+	;; Enable recursive minibuffers
+	(setq enable-recursive-minibuffers t)
 	)
 
 
+;; Enable vertico
+(use-package vertico
+	:init
+	(vertico-mode)
+
+	;; Different scroll margin
+	;; (setq vertico-scroll-margin 0)
+
+	;; Show more candidates
+	(setq vertico-count 10)
+
+	;; Grow and shrink the Vertico minibuffer
+	(setq vertico-resize t)
+
+	;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
+	(setq vertico-cycle t)
+	)
+
+;; Persist history over Emacs restarts. Vertico sorts by history position.
+(use-package savehist
+	:init
+	(savehist-mode))
+
+
+;; Optionally use the `orderless' completion style.
+(use-package orderless
+	:init
+	;; Configure a custom style dispatcher (see the Consult wiki)
+	;; (setq orderless-style-dispatchers '(+orderless-consult-dispatch orderless-affix-dispatch)
+	;;       orderless-component-separator #'orderless-escapable-split-on-space)
+	(setq completion-styles '(orderless basic)
+		completion-category-defaults nil
+		completion-category-overrides '((file (styles partial-completion))))
+	)
+
+;; Example configuration for Consult
+(use-package consult
+	;; Replace bindings. Lazily loaded due by `use-package'.
+	:bind (;; C-c bindings in `mode-specific-map'
+		      ("C-c M-x" . consult-mode-command)
+		      ("C-c h" . consult-history)
+		      ("C-c k" . consult-kmacro)
+		      ("C-c M" . consult-man)
+		      ("C-c i" . consult-info)
+		      ([remap Info-search] . consult-info)
+		      ;; C-x bindings in `ctl-x-map'
+		      ("C-x M-:" . consult-complex-command)     ;; orig. repeat-complex-command
+		      ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
+		      ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
+		      ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
+		      ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
+		      ("C-x p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
+		      ;; Custom M-# bindings for fast register access
+		      ("M-#" . consult-register-load)
+		      ("M-'" . consult-register-store)          ;; orig. abbrev-prefix-mark (unrelated)
+		      ("C-M-#" . consult-register)
+		      ;; Other custom bindings
+		      ("M-y" . consult-yank-pop)                ;; orig. yank-pop
+		      ;; M-g bindings in `goto-map'
+		      ("M-g e" . consult-compile-error)
+		      ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
+		      ("M-g g" . consult-goto-line)             ;; orig. goto-line
+		      ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
+		      ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
+		      ("M-g m" . consult-mark)
+		      ("M-g k" . consult-global-mark)
+		      ("M-g i" . consult-imenu)
+		      ("M-g I" . consult-imenu-multi)
+		      ;; M-s bindings in `search-map'
+		      ("M-s d" . consult-find)                  ;; Alternative: consult-fd
+		      ("M-s D" . consult-locate)
+		      ("M-s g" . consult-grep)
+		      ("M-s G" . consult-git-grep)
+		      ("M-s r" . consult-ripgrep)
+		      ("M-s l" . consult-line)
+		      ("M-s L" . consult-line-multi)
+		      ("M-s k" . consult-keep-lines)
+		      ("M-s u" . consult-focus-lines)
+		      ;; Isearch integration
+		      ("M-s e" . consult-isearch-history)
+		      :map isearch-mode-map
+		      ("M-e" . consult-isearch-history)         ;; orig. isearch-edit-string
+		      ("M-s e" . consult-isearch-history)       ;; orig. isearch-edit-string
+		      ("M-s l" . consult-line)                  ;; needed by consult-line to detect isearch
+		      ("M-s L" . consult-line-multi)            ;; needed by consult-line to detect isearch
+		      ;; Minibuffer history
+		      :map minibuffer-local-map
+		      ("M-s" . consult-history)                 ;; orig. next-matching-history-element
+		      ("M-r" . consult-history))                ;; orig. previous-matching-history-element
+
+	:init
+
+	;; Optionally configure the register formatting. This improves the register
+	;; preview for `consult-register', `consult-register-load',
+	;; `consult-register-store' and the Emacs built-ins.
+	(setq register-preview-delay 0.5
+		register-preview-function #'consult-register-format)
+
+	;; Optionally tweak the register preview window.
+	;; This adds thin lines, sorting and hides the mode line of the window.
+	(advice-add #'register-preview :override #'consult-register-window)
+
+	;; Use Consult to select xref locations with preview
+	(setq xref-show-xrefs-function #'consult-xref
+		xref-show-definitions-function #'consult-xref)
+
+	:config
+
+	;; Optionally configure preview. The default value
+	;; is 'any, such that any key triggers the preview.
+	;; (setq consult-preview-key 'any)
+	;; (setq consult-preview-key "M-.")
+	;; (setq consult-preview-key '("S-<down>" "S-<up>"))
+	;; For some commands and buffer sources it is useful to configure the
+	;; :preview-key on a per-command basis using the `consult-customize' macro.
+	(consult-customize
+		consult-theme :preview-key '(:debounce 0.2 any)
+		consult-ripgrep consult-git-grep consult-grep
+		consult-bookmark consult-recent-file consult-xref
+		consult--source-bookmark consult--source-file-register
+		consult--source-recent-file consult--source-project-recent-file
+		;; :preview-key "M-."
+		:preview-key '(:debounce 0.4 any))
+
+	;; Optionally configure the narrowing key.
+	;; Both < and C-+ work reasonably well.
+	(setq consult-narrow-key "<") ;; "C-+"
+
+	(autoload 'projectile-project-root "projectile")
+	(setq consult-project-function (lambda (_) (projectile-project-root)))
+	)
+
+(use-package marginalia
+	:config
+	(marginalia-mode))
+
+(use-package embark
+	:bind
+	("C-x m" . embark-act)         ;; pick some comfortable binding
+	("M-." . embark-dwim)        ;; good alternative: M-.
+	("C-h B" . embark-bindings) ;; alternative for `describe-bindings'
+
+	:init
+
+	;; Optionally replace the key help with a completing-read interface
+	(setq prefix-help-command #'embark-prefix-help-command)
+
+	;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc
+	;; strategy, if you want to see the documentation from multiple providers.
+	(add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
+	;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
+
+	:config
+
+	;; Hide the mode line of the Embark live/completions buffers
+	(add-to-list 'display-buffer-alist
+		'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
+			 nil
+			 (window-parameters (mode-line-format . none)))))
+
+;; Consult users will also want the embark-consult package.
+(use-package embark-consult
+	:hook
+	(embark-collect-mode . consult-preview-at-point-mode))
 
 (use-package doom-modeline
 	:init
@@ -145,11 +335,11 @@
 	)
 
 (custom-set-faces
-	;; custom-set-faces was added by Custom.
+ ;; custom-set-faces was added by Custom.
-	;; If you edit it by hand, you could mess it up, so be careful.
+ ;; If you edit it by hand, you could mess it up, so be careful.
-	;; Your init file should contain only one such instance.
+ ;; Your init file should contain only one such instance.
-	;; If there is more than one, they won't work right.
+ ;; If there is more than one, they won't work right.
-	)
+ )
 
 (use-package xterm-color
 	:config
@@ -246,6 +436,7 @@
 		                       (cmake . cmake)
 		                       (pip . python3-pip)
 		                       (cmake-format . "pip install --user cmakelang[YAML]")
+		                       (cmake-language-server . "pip install --user cmake-language-server")
 		                       )
 	:config
 	(setq cmake-tab-width 4)