branch: elpa/beancount
commit ca4babba947cae0e0d0a26ae5650c471e858e595
Merge: 8091f35803 35d127f8fe
Author: Martin Blais <[email protected]>
Commit: Martin Blais <[email protected]>
Merged in imenu-support (pull request #132)
beancount.el: Add imenu support
Approved-by: Martin Blais
---
beancount.el | 31 ++++++++++++++++++++++++++++++-
1 file changed, 30 insertions(+), 1 deletion(-)
diff --git a/beancount.el b/beancount.el
index 42d08068b2..08fbdde4ea 100644
--- a/beancount.el
+++ b/beancount.el
@@ -324,7 +324,9 @@ from the open directive for the relevant account."
(setq-local font-lock-syntax-table t)
(setq-local outline-regexp beancount-outline-regexp)
- (setq-local outline-level #'beancount-outline-level))
+ (setq-local outline-level #'beancount-outline-level)
+
+ (setq-local imenu-create-index-function
#'beancount-imenu-create-index-function))
(defun beancount-collect-pushed-tags (begin end)
"Return list of all pushed (and not popped) tags in the region."
@@ -1009,5 +1011,32 @@ Essentially a much simplified version of `next-line'."
(get-char-property (1- (point)) 'invisible))
(beginning-of-line 2)))
+;;; imenu support
+(defun beancount-imenu-create-index-function ()
+ "The `imenu-create-index-function' for beancount-mode that returns an
+`imenu--index-alist' that stores the headings in the buffer."
+ (let ((index-alist '()))
+ (goto-char (point-max))
+ (while (re-search-backward "^\\(\\*+\\|;;;+\\)[ \t]+\\(.*?\\)[ \t]*$" nil t)
+ (let ((level (beancount-outline-level))
+ (name (match-string-no-properties 2))
+ (pos (point)))
+ (cond ((not index-alist)
+ (push (cons level (cons name pos)) index-alist))
+ ((< level (caar index-alist))
+ (let ((sub-index-alist index-alist))
+ (while (and (cdr index-alist)
+ (< level (caadr index-alist)))
+ (setcar index-alist (cdar index-alist))
+ (pop index-alist))
+ (let ((sub-index-tail index-alist))
+ (setcar index-alist (cdar index-alist))
+ (pop index-alist)
+ (setcdr sub-index-tail nil))
+ (push (cons level (cons name sub-index-alist)) index-alist)
+ ))
+ (t (push (cons level (cons name pos)) index-alist)))))
+ (mapcar 'cdr index-alist)))
+
(provide 'beancount)
;;; beancount.el ends here
