From 4aa8f885789597be4447b95c8a4547bec8b676ed Mon Sep 17 00:00:00 2001
From: David Morgan <djm_uk@protonmail.com>
Date: Thu, 15 Jul 2021 16:29:56 +0100
Subject: More emacs.d updates

---
 emacs-prelude/personal/lisp/init-clojure.el    |  3 ++-
 emacs-prelude/personal/lisp/init-completion.el | 12 ++++++++++--
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/emacs-prelude/personal/lisp/init-clojure.el b/emacs-prelude/personal/lisp/init-clojure.el
index 191eae2..8612e6b 100644
--- a/emacs-prelude/personal/lisp/init-clojure.el
+++ b/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)
-
diff --git a/emacs-prelude/personal/lisp/init-completion.el b/emacs-prelude/personal/lisp/init-completion.el
index 202b4e5..0cf2087 100644
--- a/emacs-prelude/personal/lisp/init-completion.el
+++ b/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-."))
-- 
cgit 1.4.1-2-gfad0