summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-12 04:10:40 +0000
committerjao <jao@gnu.org>2021-11-12 04:10:40 +0000
commitecb72ed0c411b453b8a6b5a2b1fa3af05ac43a0d (patch)
tree8274fa375cb9fa6d052dd32628f36fcba804b977
parent9fcd6c3ea32da1a62ab402a9f37e1294d143a08d (diff)
downloadelibs-ecb72ed0c411b453b8a6b5a2b1fa3af05ac43a0d.tar.gz
elibs-ecb72ed0c411b453b8a6b5a2b1fa3af05ac43a0d.tar.bz2
vertico extensions (mct is charming, but vertico's too good)
-rw-r--r--completion.org55
1 files changed, 39 insertions, 16 deletions
diff --git a/completion.org b/completion.org
index e00b1d0..3c552ef 100644
--- a/completion.org
+++ b/completion.org
@@ -31,10 +31,9 @@
corfu-echo-documentation 0.25
corfu-cycle t
corfu-count 15
- corfu-quit-no-match t ; setting this to nil
- corfu-auto t ; and this to nil is another option
- corfu-commit-predicate nil ; when nil, we set:
- orderless-component-separator "[-/]+" ; no space (it aborts)
+ corfu-quit-no-match t
+ corfu-auto t
+ corfu-commit-predicate nil
corfu-min-width 20
corfu-max-width 100)
:config
@@ -52,18 +51,22 @@
(jao-corfu-no-auto eshell)
(add-to-list 'corfu-excluded-modes 'notmuch-message-mode)
- :bind (:map corfu-map
- ([remap next-line] . nil)
- ([remap previous-line] . nil)
- ([tab] . corfu-next)
- ("M-n" . corfu-next)
- ("M-p" . corfu-previous)))
+ :bind (:map corfu-map ("C-<return>" . newline)))
(corfu-global-mode 1)
#+end_src
* vertico
#+begin_src emacs-lisp
+ (jao-load-path "vertico/extensions")
+ (use-package vertico-directory
+ :after vertico)
+
+ (use-package vertico-repeat
+ :after vertico
+ :config (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
+ :bind (("M-R" . vertico-repeat)))
+
(use-package vertico
:ensure t
:init
@@ -71,14 +74,34 @@
vertico-cycle t
vertico-group-format nil
org-refile-use-outline-path t)
- (vertico-mode 1)
- :bind (:map vertico-map (("TAB" . #'vertico-next)
- ("<backtab>" . #'vertico-previous)
- ("C-SPC" . #'vertico-insert))))
+ :config
+ (setq read-extended-command-predicate
+ #'command-completion-default-include-p)
- (setq read-extended-command-predicate
- #'command-completion-default-include-p)
+ :bind (:map vertico-map (("RET" . vertico-directory-enter)
+ ("M-<backspace>" . vertico-directory-delete-word)
+ ("<backspace>" . vertico-directory-delete-char))))
+ (vertico-mode 1)
+ #+end_src
+* mct
+ #+begin_src emacs-lisp
+ (use-package mct
+ :ensure t
+ :init
+ (setq mct-remove-shadowed-file-names t
+ mct-hide-completion-mode-line t
+ mct-show-completion-line-numbers nil
+ mct-apply-completion-stripes nil
+ mct-minimum-input 3
+ mct-live-update-delay 0.6
+ mct-completion-passlist '(consult-buffer
+ imenu
+ Info-goto-node
+ Info-index
+ Info-menu
+ vc-retrieve-tag)))
+ ;; (mct-mode 1)
#+end_src
* marginalia
#+begin_src emacs-lisp