emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/ledger: add rudimentary imenu support

Browse source
This commit is contained in:
Henrik Lissner 2021-03-25 13:48:24 -04:00
parent c2659d1ad9
commit 0df5da9882
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/lang/ledger/config.el
View file

@ -17,6 +17,15 @@
(funcall orig-fn) (funcall orig-fn)
(message "Couldn't find '%s' executable" ledger-binary-path))) (message "Couldn't find '%s' executable" ledger-binary-path)))
;; `ledger-mode' lacks imenu support out of the box, so we gie it some. At
;; least to make jumping to outline headings or transactions easier.
(setq-hook! 'ledger-mode-hook
imenu-generic-expression
`((nil ,(concat
"^[\\* ]+[ \t]+\\([^\n\r]+\\)\\|" ; outline headings
"^[0-9]\\{4\\}[-/.][0-9]\\{2\\}[-/.][0-9]\\{2\\}[ \t]+[^\n]+") ; transactions
0)))
(map! :map ledger-report-mode-map (map! :map ledger-report-mode-map
"C-c C-c" #'ledger-report-edit-report "C-c C-c" #'ledger-report-edit-report
"C-c C-r" #'ledger-report-redo "C-c C-r" #'ledger-report-redo