blob: 9573a6b866e257713d81104c8e4d37238f3a3c4a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;;; geiser-imenu.el -- Tweaks to imenu configuration -*- lexical-binding: t; -*-
;; Copyright (c) 2022 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
;; have received a copy of the license along with this program. If
;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
;; Start date: Wed Oct 12, 2022 01:43
(require 'geiser-impl)
(require 'imenu)
(require 'scheme)
(defvar geiser-imenu-generic-expression
(mapcar (lambda (e)
`(,(car e)
,(concat "^\\(?: *\\)" (substring (cadr e) 1))
,@(cddr e)))
scheme-imenu-generic-expression))
(defvar geiser-imenu--nested-defs nil)
(geiser-impl--register-local-variable
'geiser-imenu--nested-defs 'nested-definitions nil
"A flag indicating whether this implementation accepts nested definitions.
For instance, R6%S library forms will contain them.")
(defun geiser-imenu-declare-nested-definitions (impl)
"Declare IMPL as one that accepts nested definitions."
(add-to-list 'geiser-imenu--nested-definition-impls impl))
(defun geiser-imenu-setup (activate)
"Adjust imenu for the current implementation."
(setq-local imenu-generic-expression
(if (and activate geiser-imenu--nested-defs)
geiser-imenu-generic-expression
scheme-imenu-generic-expression)))
(provide 'geiser-imenu)
;;; geiser-imenu.el ends here
|
