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

Some updates to ledger CLI config

Browse Source
This commit is contained in:
Random936
2026-03-28 20:30:38 -04:00
parent afc9828d2b
commit b4af81baaa
2 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.emacs.d/config.org
View File

@@ -209,6 +209,7 @@ Emacs related keybindings:
:init :init
(setq evil-want-keybinding nil) (setq evil-want-keybinding nil)
:config :config
(evil-set-initial-state 'dashboard-mode 'emacs)
(evil-mode 1)) (evil-mode 1))
#+end_src #+end_src

25
.emacs.d/ledger.org
View File

@@ -1,28 +1,35 @@
* Ledger CLI * Ledger CLI
#+begin_src elisp #+begin_src elisp
(defun jm/open-ledger-file () (defun jm/get-ledger-file ()
(interactive)
(let* ((year (format-time-string "%Y")) (let* ((year (format-time-string "%Y"))
(month (format-time-string "%m")) (month (format-time-string "%m"))
(ledger-file (expand-file-name (ledger-file (expand-file-name
(format "Ledger/%s/%s-%s.ledger" year year month) (format "Ledger/%s/%s-%s.ledger" year year month)
jm/cloud-root))) 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 (use-package ledger-mode
:mode ("\\.ledger\\'") :mode ("\\.ledger\\'")
:config :config
(setq ledger-report-use-strict t (setq ledger-binary-path "hledger"
ledger-master-file (expand-file-name "Ledger/toc.ledger" jm/cloud-root) 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-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 (setq ledger-reports
'(("bal" "%(binary) -f %(ledger-file) bal") '(("bal" "%(binary) -f %(ledger-file) bal")
("monthly balance" "%(binary) -f %(ledger-file) bal -p 'this month'") ("monthly balance" "%(binary) -f %(ledger-file) bal -p 'this month'")
("daily balance" "%(binary) -f %(ledger-file) bal -p 'today'") ("daily balance" "%(binary) -f %(ledger-file) bal -p 'today'")
("budget" "%(binary) -f %(ledger-file) -p %(month) budget ^Expenses") ("budget" "%(binary) -f %(ledger-file) -p %(month) bal --budget")
("account" "%(binary) -f %(ledger-file) reg %(account)") ("reg" "%(binary) -f %(ledger-file) reg")
("register" "%(binary) -f %(ledger-file) register")))) ("account" "%(binary) -f %(ledger-file) reg %(account)"))))
(jm/leader-keys (jm/leader-keys
"ol" '(jm/open-ledger-file :which-key "Open ledger file for current month.")) "ol" '(jm/open-ledger-file :which-key "Open ledger file for current month."))