From 5a3ae6dee663f9345da911e0d5556b54d491cfd6 Mon Sep 17 00:00:00 2001 From: Random936 Date: Sat, 8 Nov 2025 19:46:07 -0500 Subject: [PATCH] Added new open ledger file emacs shortcut "ol" --- .emacs.d/functions.org | 2 +- .emacs.d/ledger.org | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/.emacs.d/functions.org b/.emacs.d/functions.org index 82df452..948e284 100644 --- a/.emacs.d/functions.org +++ b/.emacs.d/functions.org @@ -226,5 +226,5 @@ Taken from the book /12 Week Year/, the weekly scorecard is a way to measure how (insert "\n" table "\n"))))) (jm/leader-keys - "os" '(jm/scorecard-from-heading :which-key "Open/create yesterday's daily notes file")) + "is" '(jm/scorecard-from-heading :which-key "Insert scorecard for current heading.")) #+end_src diff --git a/.emacs.d/ledger.org b/.emacs.d/ledger.org index 2a3c9d2..01ea7b6 100644 --- a/.emacs.d/ledger.org +++ b/.emacs.d/ledger.org @@ -1,6 +1,15 @@ * Ledger CLI #+begin_src elisp +(defun jm/open-ledger-file () + (interactive) + (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))) + (use-package ledger-mode :mode ("\\.ledger\\'") :config @@ -11,7 +20,9 @@ '(("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) --budget -p %(month) bal ^Expenses ^Income") + ("budget" "%(binary) -f %(ledger-file) -p %(month) budget ^Expenses ^Income") ("account" "%(binary) -f %(ledger-file) reg %(account)") - ("register" "%(binary) -f %(ledger-file) register")))) + ("register" "%(binary) -f %(ledger-file) register"))) + (jm/leader-keys + "ol" '(jm/open-ledger-file :which-key "Open ledger file for current month."))) #+end_src