random936/dot-emacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed ledger-mode not correctly setting master-file in reports

Browse Source
This commit is contained in:
Jaden Provost Maxwell-Comfort
2026-04-19 10:23:44 -04:00
parent 62e41ac00d
commit f328d62128
1 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
.emacs.d/ledger.org
View File

@@ -13,23 +13,29 @@
(interactive) (interactive)
(find-file (jm/get-ledger-file))) (find-file (jm/get-ledger-file)))
(defun jm/get-ledger-master-file ()
(expand-file-name "Ledger/main.ledger" jm/cloud-root))
(use-package ledger-mode (use-package ledger-mode
:mode ("\\.ledger\\'") :mode ("\\.ledger\\'")
:config
(add-to-list 'ledger-report-format-specifiers
'("master-file" . (jm/get-ledger-master-file)))
:custom :custom
((ledger-binary-path "hledger") (ledger-binary-path "hledger")
(ledger-master-file (expand-file-name "Ledger/main.ledger" jm/cloud-root)) (ledger-master-file (jm/get-ledger-master-file))
(ledger-accounts-file (expand-file-name "Ledger/accounts.ledger" jm/cloud-root)) (ledger-accounts-file (expand-file-name "Ledger/accounts.ledger" jm/cloud-root))
(ledger-mode-should-check-version nil) (ledger-mode-should-check-version nil)
(ledger-report-auto-width nil) (ledger-report-auto-width nil)
(ledger-report-use-native-highlighting nil) (ledger-report-use-native-highlighting nil)
(ledger-reports (ledger-reports
'(("bal" "%(binary) -f %(ledger-file) bal") '(("bal" "%(binary) -f %(master-file) bal")
("monthly balance" "%(binary) -f %(ledger-file) bal -p 'this month'") ("monthly balance" "%(binary) -f %(master-file) bal -p 'this month'")
("daily balance" "%(binary) -f %(ledger-file) bal -p 'today'") ("daily balance" "%(binary) -f %(master-file) bal -p 'today'")
("budget" "%(binary) -f %(ledger-file) -p %(month) bal --budget") ("budget" "%(binary) -f %(master-file) -p %(month) bal --budget")
("reg" "%(binary) -f %(ledger-file) reg") ("reg" "%(binary) -f %(master-file) reg")
("account" "%(binary) -f %(ledger-file) reg %(account)"))))) ("account" "%(binary) -f %(master-file) reg %(account)"))))
(jm/leader-keys (jm/leader-keys
"ol" '(jm/open-ledger-file :which-key "Open ledger file for current month.")) "ol" '(jm/open-ledger-file :which-key "Open ledger file for current month."))