scheme: Add 'define-public' to imenu expression

1 files changed, 10 insertions, 0 deletions

diff --git a/init.el b/init.el
index 9e7e0d7..d7c5117 100644
--- a/init.el
+++ b/init.el
@@ -1929,6 +1929,16 @@
   :config
   (define-key geiser-mode-map (kbd "C-.") nil))
 
+(use-package scheme
+  :defer
+  :config
+  (add-hook 'scheme-mode-hook
+            (lambda ()
+              (setq imenu-generic-expression
+                    (cons (list nil
+                                "^(define-public\\s-+\\(\\sw+\\)" 1)
+                          imenu-generic-expression)))))
+
 (use-package python
   :defer t
   :init