diff options
| author | jao <jao@gnu.org> | 2021-11-12 21:33:08 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-12 21:33:08 +0000 |
| commit | a59d2ce1d399385fdb377d73f34f9198159a9334 (patch) | |
| tree | 2b2c776ccbfad5f4d5b9d35e34983851ad1be959 /completion.org | |
| parent | 9f553a7431d39dd57b46a1881fe993b3f2d330c6 (diff) | |
| download | elibs-a59d2ce1d399385fdb377d73f34f9198159a9334.tar.gz elibs-a59d2ce1d399385fdb377d73f34f9198159a9334.tar.bz2 | |
completion: show consult previews in *Completions*
Diffstat (limited to 'completion.org')
| -rw-r--r-- | completion.org | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/completion.org b/completion.org index b7ebbcb..2aca498 100644 --- a/completion.org +++ b/completion.org @@ -8,6 +8,8 @@ :init (setq completion-category-defaults nil completion-cycle-threshold nil + completions-detailed t + completion-ignore-case t completion-category-overrides '((file (styles . (partial-completion)))))) #+end_src @@ -82,7 +84,7 @@ ("M-<backspace>" . vertico-directory-delete-word) ("<backspace>" . vertico-directory-delete-char)))) - (vertico-mode 1) + (vertico-mode -1) #+end_src * mct #+begin_src emacs-lisp @@ -90,17 +92,28 @@ :ensure t :init (setq mct-remove-shadowed-file-names t - mct-hide-completion-mode-line t + mct-hide-completion-mode-line nil mct-show-completion-line-numbers nil mct-apply-completion-stripes nil mct-minimum-input 3 + mct-live-completion 'visible mct-live-update-delay 0.6 - mct-completion-passlist '(consult-buffer - imenu + mct-completion-passlist '(imenu Info-goto-node Info-index Info-menu - vc-retrieve-tag))) + vc-retrieve-tag)) + :config + (defun jao-mct-complete-and-go () + "Complete current input, as with `M-e' and accept the candidate." + (interactive) + (mct-edit-completion) + (exit-minibuffer)) + + :bind + (:map mct-minibuffer-local-completion-map + (("C-<return>" . jao-mct-complete-and-go)))) + ;; (mct-mode 1) #+end_src * marginalia @@ -166,7 +179,8 @@ (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help) - (consult-customize consult-mark :preview-key 'any)) + (consult-customize consult-mark :preview-key 'any) + (add-hook 'completion-list-mode-hook #'consult-preview-at-point-mode)) #+end_src *** recoll |