More emacs.d updates

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

@@ -33,9 +33,10 @@
         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
         clojure-toplevel-inside-comment-form t)
   (key-chord-define-global "??" 'cider-xref-fn-refs-select)
   (key-chord-define-global "qq" 'cider-xref-fn-refs))
 
 (provide 'init-clojure)
-

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

@@ -93,7 +93,15 @@
 (use-package vertico
   :init
   (vertico-mode)
-  (setq vertico-cycle t))
+  (setq vertico-cycle t)
+  (advice-add #'vertico--format-candidate :around
+              (lambda (orig cand prefix suffix index)
+                (setq cand (funcall orig cand prefix suffix index))
+                (concat
+                 (if (= vertico--index index)
+                     (propertize "» " 'face 'vertico-current)
+                   "  ")
+                 cand))))
 
 (prelude-require-package 'consult)
 (use-package consult
@@ -184,7 +192,7 @@
    consult-theme
    :preview-key '(:debounce 0.2 any)
    consult-ripgrep consult-git-grep consult-grep
-   consult-smart-ripgrep consult-iripgrep consult-ripgrep-unrestricted
+   consult-smart-ripgrep consult-iripgrep consult-ripgrep-unrestricted consult-ripgrep-symbol-at-point
    consult-bookmark consult-recent-file consult-xref consult-buffer-no-preview
    consult--source-file consult--source-project-file consult--source-bookmark
    :preview-key (kbd "M-."))