diff options
| author | jao <jao@gnu.org> | 2021-11-03 03:37:58 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-03 03:37:58 +0000 |
| commit | da63d0e99d1a3dda4457a8e4c285f3a834e26b7c (patch) | |
| tree | baf4863a3d2d34d9239730ddc4ee43f5e4970624 | |
| parent | f533cf856e281a7fcfd8645684742e5bd14a1a5d (diff) | |
| download | elibs-da63d0e99d1a3dda4457a8e4c285f3a834e26b7c.tar.gz elibs-da63d0e99d1a3dda4457a8e4c285f3a834e26b7c.tar.bz2 | |
completion nits
| -rw-r--r-- | completion.org | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/completion.org b/completion.org index 8912e06..e00b1d0 100644 --- a/completion.org +++ b/completion.org @@ -109,8 +109,7 @@ ("C-c I" . consult-project-imenu) ("C-c k" . consult-ripgrep) ("C-c K" . consult-git-grep) - ;; ("C-c l" . consult-locate) - ("C-c m" . consult-mode-command) + ("C-h m" . consult-mode-command) ("C-c s" . consult-line) ("C-x r x" . consult-register) ("C-x r b" . consult-bookmark) @@ -131,6 +130,10 @@ (fset 'multi-occur #'consult-multi-occur) :config + + (advice-add #'completing-read-multiple + :override #'consult-completing-read-multiple) + (require 'jao-compilation) (defun jao-consult-project-root () (expand-file-name (or (vc-root-dir) (jao-compilation-root) ""))) @@ -312,6 +315,7 @@ :bind (("C-;" . embark-act) ("C-'" . embark-dwim) + ("C-h b" . embark-bindings) (:map minibuffer-local-map (("C-'" . embark-dwim) ("C-," . embark-become) @@ -455,17 +459,11 @@ :ensure t :init (setq avy-style 'pre avy-background t + avy-timeout-seconds 0.6 avy-single-candidate-jump t) :config - (defun avy-embark-act (pt) - "Use Embark to act on the completion at PT." - (save-excursion - (goto-char pt) - (embark-act))) - (add-to-list 'avy-dispatch-alist '(?\; . avy-embark-act)) - (defun avy-dictionary-act (pt) "Use dictionary lookup to act on the completion at PT." (save-excursion @@ -474,7 +472,7 @@ (add-to-list 'avy-dispatch-alist '(?d . avy-dictionary-act)) :bind (("C-c a" . avy-goto-char-timer) - ("C-S-a" . avy-goto-char-timer))) + ("s-j" . avy-goto-char-timer))) (use-package link-hint :ensure t @@ -482,8 +480,15 @@ :config - (defun embark-on-link () - (interactive) + (defun avy-embark-act (pt) + "Use Embark to act on the completion at PT." + (save-excursion + (goto-char pt) + (embark-act))) + (add-to-list 'avy-dispatch-alist '(?\; . avy-embark-act)) + + (defun embark-on-link (def) + (interactive "P") (let ((unread-command-events '(?\;))) (link-hint-open-link))) @@ -520,9 +525,9 @@ (push 'link-hint-notmuch-part link-hint-types) (push 'link-hint-notmuch-w3m-url link-hint-types) - :bind (("C-c l" . link-hint-open-link) - ("C-S-l" . link-hint-open-link) - ("C-c L" . link-hint-open-multiple-links))) + :bind (("C-l" . link-hint-open-link) + ("C-S-l" . recenter-top-bottom) + ("C-c l" . link-hint-open-multiple-links))) #+end_src * imenu |