selectrum: rework live-previews

- for the slow consult functions it's bound to `C-SPC`
- for the rest of them the current approach wasn't working out great so
  it's removed for the time being.

modules/completion/selectrum/TODO.org

@@ -1,17 +1,18 @@
 * PROJ List of things not working
-** TODO Functions very slow on startup:
-- =consult-recent-files=
-- =consult-bookmark=
-preview deactivated for now (see consult use-package)
 ** TODO Add vanilla keybindings
 *** TODO Add keybinding for embark-act
 ** TODO =SPC s s= and =SPC s S= ~:sw~
 There isn't really a selectrum analogue to ~swiper-isearch~, ~consult-isearch~
 does something else (give you previously used isearch search terms).
-** TODO fix C-SPC
-currently after executing the action it:
-- moves the cursor to the new window if created, might not be desired in all cases
-- for some reason opens buffers in a new window (might be upstream bug?)
+** TODO =C-SPC= and live previews
+Automatic live previews have been globally disabled for speed purposes.
+=C-SPC= is partially implemented with the preview key for ~consult-*~ commands.
+Need to get it to work for other selectrum commands such =SPC h f=.
+#+begin_src emacs-lisp
+  (let ((embark-quit-after-action nil))
+    (map! :map minibuffer-local-map "C-SPC" #'embark-default-action)))
+#+end_src
+gets us close but moves the cursor to the new screen which is undesirable.
 * PROJ List of things needed for Ivy parity
 ** TODO Icons
 https://github.com/minad/marginalia/issues/59
@@ -32,3 +33,4 @@ In selectrum, it leads to =/foo/bar!=
 ** TODO bind =consult-lsp-diagnostics= to something?
 ** TODO test out bibtex-actions, check if more configuration should be added
 https://github.com/bdarcus/bibtex-actions
+ .

modules/completion/selectrum/config.el

@@ -80,8 +80,9 @@
   (setq consult-project-root-function #'doom-project-root)
   (setq completion-in-region-function #'consult-completion-in-region)
   (setq consult-narrow-key "<")
-  (setf (alist-get #'consult-bookmark consult-config) (list :preview-key nil))
-  (setf (alist-get #'consult-recent-file consult-config) (list :preview-key nil))
+  (setf (alist-get #'consult-bookmark consult-config) (list :preview-key (kbd "C-SPC")))
+  (setf (alist-get #'consult-recent-file consult-config) (list :preview-key (kbd "C-SPC")))
+  (setf (alist-get #'consult--grep consult-config) (list :preview-key (kbd "C-SPC")))
   (setq consult-line-numbers-widen t)
   (setq consult-async-input-debounce 0.5)
   (setq consult-async-input-throttle 0.8))
@@ -111,9 +112,7 @@
    :desc "Open target with sudo" "s" #'sudo-edit
    :desc "Open target with vlf" "l" #'vlf
    :map embark-file-map
-   :desc "Cycle marginalia views" "A" #'marginalia-cycle )
-  (let ((embark-quit-after-action nil))
-    (map! :map minibuffer-local-map "C-SPC" #'embark-default-action)))
+   :desc "Cycle marginalia views" "A" #'marginalia-cycle))
 
 (use-package! marginalia
   :hook (doom-first-input . marginalia-mode)