about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2021-07-15 16:29:56 +0100
committerDavid Morgan <djm_uk@protonmail.com>2021-07-15 16:29:56 +0100
commit4aa8f885789597be4447b95c8a4547bec8b676ed (patch)
tree758f9f2b0e25c3f8a339622af1d399e20f232715
parent68297fa60a7cf65d8b6e998420ddb888cfa27d0c (diff)
downloaddotfiles-4aa8f885789597be4447b95c8a4547bec8b676ed.tar.gz
More emacs.d updates
-rw-r--r--emacs-prelude/personal/lisp/init-clojure.el3
-rw-r--r--emacs-prelude/personal/lisp/init-completion.el12
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-."))