From 1d027b9d61914a3be9c9f2172cdab66077de5d17 Mon Sep 17 00:00:00 2001 From: Random936 Date: Sun, 3 May 2026 16:16:56 -0400 Subject: [PATCH] Updating ledger.org to fix several ledger reports --- .emacs.d/ledger.org | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/.emacs.d/ledger.org b/.emacs.d/ledger.org index 88facee..f7a8e67 100644 --- a/.emacs.d/ledger.org +++ b/.emacs.d/ledger.org @@ -13,26 +13,24 @@ (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))) + '("master-file" . (lambda () + (expand-file-name "Ledger/main.ledger" jm/cloud-root)))) :custom (ledger-binary-path "hledger") - (ledger-master-file (jm/get-ledger-master-file)) + (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-links-in-register nil) (ledger-report-use-native-highlighting nil) + (ledger-report-use-strict t) (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'") + ("cashflow" "%(binary) -f %(master-file) -p %(month) bal Income Expenses") ("budget" "%(binary) -f %(master-file) -p %(month) bal --budget") ("reg" "%(binary) -f %(master-file) reg") ("account" "%(binary) -f %(master-file) reg %(account)"))))