Tweak CIDER config and add more vertico stuff

emacs-prelude/personal/lisp/init-clojure.el

@@ -33,8 +33,9 @@
         cider-repl-history-highlight-inserted-item t
         cider-repl-use-clojure-font-lock t
         cider-repl-use-pretty-printing t
-        cider-invert-insert-eval-p t
-        cider-switch-to-repl-on-insert nil
+        ;cider-invert-insert-eval-p t
+        ;cider-switch-to-repl-on-insert nil
+        cider-repl-history-file "~/.emacs.d/cider-history"
         clojure-toplevel-inside-comment-form t)
   (key-chord-define-global "??" 'cider-xref-fn-refs-select)
   (key-chord-define-global "qq" 'cider-xref-fn-refs))

emacs-prelude/personal/lisp/init-completion.el

@@ -101,7 +101,38 @@
                  (if (= vertico--index index)
                      (propertize "» " 'face 'vertico-current)
                    "  ")
-                 cand))))
+                 cand)))
+  :config
+  (defun down-from-outside ()
+    "Move to next candidate in minibuffer, even when minibuffer isn't selected."
+    (interactive)
+    (with-selected-window (active-minibuffer-window)
+      (execute-kbd-macro [down])))
+
+  (defun up-from-outside ()
+    "Move to previous candidate in minibuffer, even when minibuffer isn't selected."
+    (interactive)
+    (with-selected-window (active-minibuffer-window)
+      (execute-kbd-macro [up])))
+
+  (defun preview-from-outside ()
+    "Preview the selected candidate, even when minibuffer isn't selected."
+    (interactive)
+    (with-selected-window (active-minibuffer-window)
+      (execute-kbd-macro (kbd "M-."))))
+
+  (defun to-and-fro-minibuffer ()
+    "Go back and forth between minibuffer and other window."
+    (interactive)
+    (if (window-minibuffer-p (selected-window))
+        (select-window (minibuffer-selected-window))
+      (select-window (active-minibuffer-window))))
+
+  (key-chord-define-global "XX" 'to-and-fro-minibuffer)
+  (key-chord-define-global ">>" 'preview-from-outside)
+  :bind (("C-M-<" . up-from-outside)
+         ("C-M->" . down-from-outside)
+         ("M-+" . preview-from-outside)))
 
 (prelude-require-package 'consult)
 (use-package consult