diff options
| author | jao <jao@gnu.org> | 2021-11-15 21:42:21 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-15 21:42:21 +0000 |
| commit | f2e62b17a3767c184a3dce0b53d7b3c23ec9477f (patch) | |
| tree | d93edb5de288748d2fd4479ad7134965e63e7860 | |
| parent | 9c9cff59c4c78c7eea637fec7cd2d43b6832a897 (diff) | |
| download | elibs-f2e62b17a3767c184a3dce0b53d7b3c23ec9477f.tar.gz elibs-f2e62b17a3767c184a3dce0b53d7b3c23ec9477f.tar.bz2 | |
completion: playing with mct
| -rw-r--r-- | completion.org | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/completion.org b/completion.org index aa01983..8ef7f67 100644 --- a/completion.org +++ b/completion.org @@ -75,7 +75,7 @@ :init (setq vertico-count 20 vertico-cycle t - vertico-group-format nil + ; vertico-group-format nil org-refile-use-outline-path t) :config (setq read-extended-command-predicate @@ -85,38 +85,35 @@ ("M-<backspace>" . vertico-directory-delete-word) ("<backspace>" . vertico-directory-delete-char)))) - (vertico-mode -1) + ;; (vertico-mode 1) #+end_src * mct #+begin_src emacs-lisp + (jao-load-path "mct") (use-package mct :ensure t :init (setq mct-remove-shadowed-file-names t - mct-hide-completion-mode-line nil + mct-hide-completion-mode-line t mct-show-completion-line-numbers nil mct-apply-completion-stripes nil mct-minimum-input 3 - mct-live-completion t - mct-live-update-delay 0.6 - mct-completion-passlist '(consult-rgrep - imenu + mct-live-update-delay 0 + mct-live-completion t ;; 'visible + mct-completion-passlist '(imenu Info-goto-node Info-index Info-menu 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)))) + :bind (:map + mct-minibuffer-local-completion-map + (("<return>" . mct-complete-and-exit) + ("<C-return>" . minibuffer-complete-and-exit)) + :map mct-completion-list-mode-map + (("e" . mct-focus-minibuffer)))) (mct-mode 1) + #+end_src * marginalia #+begin_src emacs-lisp @@ -169,8 +166,8 @@ :config - (advice-add #'completing-read-multiple - :override #'consult-completing-read-multiple) + ;; (advice-add #'completing-read-multiple + ;; :override #'consult-completing-read-multiple) (require 'jao-compilation) (defun jao-consult-project-root () |