From f328d62128daaf8c778c0435441a6050e442a44e Mon Sep 17 00:00:00 2001 From: Jaden Provost Maxwell-Comfort Date: Sun, 19 Apr 2026 10:23:44 -0400 Subject: [PATCH] Fixed ledger-mode not correctly setting master-file in reports --- .emacs.d/ledger.org | 32 +++++++++++++++++++------------- 1 file changed, 19 insertions(+), 13 deletions(-) diff --git a/.emacs.d/ledger.org b/.emacs.d/ledger.org index d852deb..88facee 100644 --- a/.emacs.d/ledger.org +++ b/.emacs.d/ledger.org @@ -13,23 +13,29 @@ (interactive) (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 :mode ("\\.ledger\\'") + :config + (add-to-list 'ledger-report-format-specifiers + '("master-file" . (jm/get-ledger-master-file))) :custom - ((ledger-binary-path "hledger") - (ledger-master-file (expand-file-name "Ledger/main.ledger" jm/cloud-root)) - (ledger-accounts-file (expand-file-name "Ledger/accounts.ledger" jm/cloud-root)) - (ledger-mode-should-check-version nil) - (ledger-report-auto-width nil) - (ledger-report-use-native-highlighting nil) - (ledger-reports - '(("bal" "%(binary) -f %(ledger-file) bal") - ("monthly balance" "%(binary) -f %(ledger-file) bal -p 'this month'") - ("daily balance" "%(binary) -f %(ledger-file) bal -p 'today'") - ("budget" "%(binary) -f %(ledger-file) -p %(month) bal --budget") - ("reg" "%(binary) -f %(ledger-file) reg") - ("account" "%(binary) -f %(ledger-file) reg %(account)"))))) + (ledger-binary-path "hledger") + (ledger-master-file (jm/get-ledger-master-file)) + (ledger-accounts-file (expand-file-name "Ledger/accounts.ledger" jm/cloud-root)) + (ledger-mode-should-check-version nil) + (ledger-report-auto-width nil) + (ledger-report-use-native-highlighting nil) + (ledger-reports + '(("bal" "%(binary) -f %(master-file) bal") + ("monthly balance" "%(binary) -f %(master-file) bal -p 'this month'") + ("daily balance" "%(binary) -f %(master-file) bal -p 'today'") + ("budget" "%(binary) -f %(master-file) -p %(month) bal --budget") + ("reg" "%(binary) -f %(master-file) reg") + ("account" "%(binary) -f %(master-file) reg %(account)")))) (jm/leader-keys "ol" '(jm/open-ledger-file :which-key "Open ledger file for current month."))