emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
doomemacs/modules/lang/beancount/config.el

52 lines
2 KiB
EmacsLisp
Raw Normal View History

Add :lang beancount module
2021-04-13 20:09:08 -04:00
;;; lang/beancount/config.el -*- lexical-binding: t; -*-
lang/beancount: fix config & more electricity + Adds electric alignment of amounts on RET + Fixes all of beancount's config (which was running because the package is called beancount, not beancount-mode) + Fixes flood of "invalid face org-level-N" warnings + Fixes beancount-electric-currency for appending currency to unlabelled amounts. Also enables this to fall back to first operating_currency in document, in available + Binds TAB to beancount-outline-cycle on outline heading, otherwise indent-according-to-mode. No need for completion popup when company already provides this.
2021-04-15 14:15:42 -04:00
(use-package! beancount
Fix #5035: assocate *.beancount with beancount-mode Otherwise, use-package implicitly associates *.beancount with a function called `beancount`, which does not exist.
2021-05-11 16:20:20 -04:00
:mode ("\\.beancount\\'" . beancount-mode)
bump: :lang beancount beancount/beancount-mode@dbafe6a73d90 -> beancount/beancount-mode@ea8257881b7e Some of our local changes were upstreamed. Ref beancount/beancount-mode#17 Ref beancount/beancount-mode#18
2021-09-30 01:29:46 +02:00
:hook (beancount-mode . outline-minor-mode)
Add :lang beancount module
2021-04-13 20:09:08 -04:00
:init
bump: :lang beancount beancount/beancount-mode@dbafe6a73d90 -> beancount/beancount-mode@ea8257881b7e Some of our local changes were upstreamed. Ref beancount/beancount-mode#17 Ref beancount/beancount-mode#18
2021-09-30 01:29:46 +02:00
;; REVIEW Remove once domtronn/all-the-icons.el#272 is merged
Add :lang beancount module
2021-04-13 20:09:08 -04:00
(after! all-the-icons
(add-to-list 'all-the-icons-icon-alist
'("\\.beancount\\'" all-the-icons-material "attach_money" :face all-the-icons-lblue))
(add-to-list 'all-the-icons-mode-icon-alist
'(beancount-mode all-the-icons-material "attach_money" :face all-the-icons-lblue)))
lang/beancount: fix config & more electricity + Adds electric alignment of amounts on RET + Fixes all of beancount's config (which was running because the package is called beancount, not beancount-mode) + Fixes flood of "invalid face org-level-N" warnings + Fixes beancount-electric-currency for appending currency to unlabelled amounts. Also enables this to fall back to first operating_currency in document, in available + Binds TAB to beancount-outline-cycle on outline heading, otherwise indent-according-to-mode. No need for completion popup when company already provides this.
2021-04-15 14:15:42 -04:00
Add :lang beancount module
2021-04-13 20:09:08 -04:00
:config
bump: :lang beancount beancount/beancount-mode@dbafe6a73d90 -> beancount/beancount-mode@ea8257881b7e Some of our local changes were upstreamed. Ref beancount/beancount-mode#17 Ref beancount/beancount-mode#18
2021-09-30 01:29:46 +02:00
(setq beancount-electric-currency t)
Add :lang beancount module
2021-04-13 20:09:08 -04:00
(when (featurep! +lsp)
(add-hook 'beancount-mode-local-vars-hook #'lsp!))
(map! :map beancount-mode-map
lang/beancount: fix config & more electricity + Adds electric alignment of amounts on RET + Fixes all of beancount's config (which was running because the package is called beancount, not beancount-mode) + Fixes flood of "invalid face org-level-N" warnings + Fixes beancount-electric-currency for appending currency to unlabelled amounts. Also enables this to fall back to first operating_currency in document, in available + Binds TAB to beancount-outline-cycle on outline heading, otherwise indent-according-to-mode. No need for completion popup when company already provides this.
2021-04-15 14:15:42 -04:00
"TAB" (cmds! (and outline-minor-mode (outline-on-heading-p))
#'beancount-outline-cycle
#'indent-according-to-mode)
Add :lang beancount module
2021-04-13 20:09:08 -04:00
:localleader
"b" #'+beancount/balance
"c" #'beancount-check
"l" #'beancount-linked
"q" #'beancount-query
"x" #'beancount-context
(:prefix ("i" . "insert")
"a" #'beancount-insert-account
"p" #'beancount-insert-prices
lang/beancount: fix config & more electricity + Adds electric alignment of amounts on RET + Fixes all of beancount's config (which was running because the package is called beancount, not beancount-mode) + Fixes flood of "invalid face org-level-N" warnings + Fixes beancount-electric-currency for appending currency to unlabelled amounts. Also enables this to fall back to first operating_currency in document, in available + Binds TAB to beancount-outline-cycle on outline heading, otherwise indent-according-to-mode. No need for completion popup when company already provides this.
2021-04-15 14:15:42 -04:00
"d" #'beancount-insert-date))
(defadvice! +beancount--fix-account-currency-a (account)
"Fixes `beancount-electric-currency', which could never find the currency
for the current account. Also allows it to fall back to the operating_currency."
:override #'beancount--account-currency
(save-excursion
(goto-char (point-min))
(when (or (re-search-forward
(concat "^" beancount-date-regexp " +open"
"\\s-+" (regexp-quote account)
"\\s-+\\(" beancount-currency-regexp "\\)\\>")
nil t)
(re-search-forward
(concat "^option\\s-+\"operating_currency\"\\s-+\"\\("
beancount-currency-regexp
"\\)\"")
nil t))
(match-string-no-properties 1)))))
Reference in a new issue Copy permalink