summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-11-03 03:37:58 +0000
committerjao <jao@gnu.org>2021-11-03 03:37:58 +0000
commitda63d0e99d1a3dda4457a8e4c285f3a834e26b7c (patch)
treebaf4863a3d2d34d9239730ddc4ee43f5e4970624
parentf533cf856e281a7fcfd8645684742e5bd14a1a5d (diff)
downloadelibs-da63d0e99d1a3dda4457a8e4c285f3a834e26b7c.tar.gz
elibs-da63d0e99d1a3dda4457a8e4c285f3a834e26b7c.tar.bz2
completion nits
-rw-r--r--completion.org35
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