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

Added new open ledger file emacs shortcut "ol"

Browse Source
This commit is contained in:
Random936
2025-11-08 19:46:07 -05:00
parent fc9481d60d
commit 5a3ae6dee6
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
.emacs.d/ledger.org
View File

@@ -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