From da63d0e99d1a3dda4457a8e4c285f3a834e26b7c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 3 Nov 2021 03:37:58 +0000
Subject: completion nits

---
 completion.org | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

(limited to 'completion.org')

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
-- 
cgit v1.2.3