From a59d2ce1d399385fdb377d73f34f9198159a9334 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 12 Nov 2021 21:33:08 +0000
Subject: completion: show consult previews in *Completions*

---
 completion.org | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

(limited to 'completion.org')

diff --git a/completion.org b/completion.org
index b7ebbcb..2aca498 100644
--- a/completion.org
+++ b/completion.org
@@ -8,6 +8,8 @@
       :init
       (setq completion-category-defaults nil
             completion-cycle-threshold nil
+            completions-detailed t
+            completion-ignore-case t
             completion-category-overrides
             '((file (styles . (partial-completion))))))
   #+end_src
@@ -82,7 +84,7 @@
                                ("M-<backspace>" . vertico-directory-delete-word)
                                ("<backspace>" . vertico-directory-delete-char))))
 
-    (vertico-mode 1)
+    (vertico-mode -1)
   #+end_src
 * mct
   #+begin_src emacs-lisp
@@ -90,17 +92,28 @@
       :ensure t
       :init
       (setq mct-remove-shadowed-file-names t
-            mct-hide-completion-mode-line t
+            mct-hide-completion-mode-line nil
             mct-show-completion-line-numbers nil
             mct-apply-completion-stripes nil
             mct-minimum-input 3
+            mct-live-completion 'visible
             mct-live-update-delay 0.6
-            mct-completion-passlist '(consult-buffer
-                                      imenu
+            mct-completion-passlist '(imenu
  	                              Info-goto-node
  	                              Info-index
  	                              Info-menu
- 	                              vc-retrieve-tag)))
+ 	                              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))))
+
     ;; (mct-mode 1)
   #+end_src
 * marginalia
@@ -166,7 +179,8 @@
         (define-key consult-narrow-map (vconcat consult-narrow-key "?")
           #'consult-narrow-help)
 
-        (consult-customize consult-mark :preview-key 'any))
+        (consult-customize consult-mark :preview-key 'any)
+        (add-hook 'completion-list-mode-hook #'consult-preview-at-point-mode))
 
     #+end_src
 *** recoll
-- 
cgit v1.2.3