From b4af81baaaa3d0d60b66246d611db69d9bd9739d Mon Sep 17 00:00:00 2001
From: Random936 <randomdude936@gmail.com>
Date: Sat, 28 Mar 2026 20:30:38 -0400
Subject: [PATCH] Some updates to ledger CLI config

---
 .emacs.d/config.org |  1 +
 .emacs.d/ledger.org | 25 ++++++++++++++++---------
 2 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/.emacs.d/config.org b/.emacs.d/config.org
index ff087a6..aa0b7ca 100644
--- a/.emacs.d/config.org
+++ b/.emacs.d/config.org
@@ -209,6 +209,7 @@ Emacs related keybindings:
   :init
   (setq evil-want-keybinding nil)
   :config
+  (evil-set-initial-state 'dashboard-mode 'emacs)
   (evil-mode 1))
 #+end_src
 
diff --git a/.emacs.d/ledger.org b/.emacs.d/ledger.org
index 66d4119..2eaac34 100644
--- a/.emacs.d/ledger.org
+++ b/.emacs.d/ledger.org
@@ -1,28 +1,35 @@
 * Ledger CLI
 
 #+begin_src elisp
-(defun jm/open-ledger-file ()
-  (interactive)
+(defun jm/get-ledger-file ()
   (let* ((year (format-time-string "%Y"))
          (month (format-time-string "%m"))
          (ledger-file (expand-file-name
                        (format "Ledger/%s/%s-%s.ledger" year year month)
                        jm/cloud-root)))
-    (find-file ledger-file)))
+    ledger-file))
+
+(defun jm/open-ledger-file ()
+  (interactive)
+  (find-file (jm/get-ledger-file)))
+
 
 (use-package ledger-mode
   :mode ("\\.ledger\\'")
   :config
-  (setq ledger-report-use-strict t
-        ledger-master-file (expand-file-name "Ledger/toc.ledger" jm/cloud-root)
-        ledger-accounts-file (expand-file-name "Ledger/accounts.ledger" jm/cloud-root))
+  (setq 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)
   (setq 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) budget ^Expenses")
-          ("account" "%(binary) -f %(ledger-file) reg %(account)")
-          ("register" "%(binary) -f %(ledger-file) register"))))
+          ("budget" "%(binary) -f %(ledger-file) -p %(month) bal --budget")
+          ("reg" "%(binary) -f %(ledger-file) reg")
+          ("account" "%(binary) -f %(ledger-file) reg %(account)"))))
 
 (jm/leader-keys
   "ol" '(jm/open-ledger-file :which-key "Open ledger file for current month."))