From c82e2e1550ff47a0dac4e64a18e7221fcf7be543 Mon Sep 17 00:00:00 2001
From: Vedang Manerikar <ved.manerikar@gmail.com>
Date: Mon, 16 Dec 2024 07:30:09 +0530
Subject: [PATCH] Use consult-imenu-config to enable better jumps in Clojure
---
unravel-emacs.org | 16 ++++++++++++----
unravel-modules/unravel-completion.el | 16 ++++++++++++----
2 files changed, 24 insertions(+), 8 deletions(-)
diff --git a/unravel-emacs.org b/unravel-emacs.org
index 28a181c..c8acc61 100644
--- a/unravel-emacs.org
+++ b/unravel-emacs.org
@@ -2213,10 +2213,18 @@ Also check: [[#h:e0f9c30e-3a98-4479-b709-7008277749e4][The =unravel-search.el= m
"-path */.git* -prune "
"-or -path */.cache* -prune )"))
(setq consult-preview-key 'any)
-
- (add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring))
- ;; the `imenu' extension is in its own file
- (require 'consult-imenu))
+ ;; the `imenu' extension is in its own file
+ (require 'consult-imenu)
+ (dolist (clj '(clojure-mode clojure-ts-mode))
+ (add-to-list 'consult-imenu-config
+ `(,clj :toplevel "Functions"
+ :types
+ ((?f "Functions" font-lock-function-name-face)
+ (?m "Macros" font-lock-function-name-face)
+ (?p "Packages" font-lock-constant-face)
+ (?t "Types" font-lock-type-face)
+ (?v "Variables" font-lock-variable-name-face)))))
+ (add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring)))
#+end_src
** The =unravel-completion.el= section about ~embark~
diff --git a/unravel-modules/unravel-completion.el b/unravel-modules/unravel-completion.el
index d28993e..cc11fd4 100644
--- a/unravel-modules/unravel-completion.el
+++ b/unravel-modules/unravel-completion.el
@@ -274,10 +274,18 @@
"-path */.git* -prune "
"-or -path */.cache* -prune )"))
(setq consult-preview-key 'any)
-
- (add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring))
- ;; the `imenu' extension is in its own file
- (require 'consult-imenu))
+ ;; the `imenu' extension is in its own file
+ (require 'consult-imenu)
+ (dolist (clj '(clojure-mode clojure-ts-mode))
+ (add-to-list 'consult-imenu-config
+ `(,clj :toplevel "Functions"
+ :types
+ ((?f "Functions" font-lock-function-name-face)
+ (?m "Macros" font-lock-function-name-face)
+ (?p "Packages" font-lock-constant-face)
+ (?t "Types" font-lock-type-face)
+ (?v "Variables" font-lock-variable-name-face)))))
+ (add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring)))
;;; Extended minibuffer actions and more (embark.el and prot-embark.el)
(use-package embark