summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-15 21:42:21 +0000
committerjao <jao@gnu.org>2021-11-15 21:42:21 +0000
commitf2e62b17a3767c184a3dce0b53d7b3c23ec9477f (patch)
treed93edb5de288748d2fd4479ad7134965e63e7860
parent9c9cff59c4c78c7eea637fec7cd2d43b6832a897 (diff)
downloadelibs-f2e62b17a3767c184a3dce0b53d7b3c23ec9477f.tar.gz
elibs-f2e62b17a3767c184a3dce0b53d7b3c23ec9477f.tar.bz2
completion: playing with mct
-rw-r--r--completion.org35
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 ()