diff --git a/README.org b/README.org index f063db4d..10b084a5 100644 --- a/README.org +++ b/README.org @@ -3715,7 +3715,16 @@ Ledger mode #'cape-abbrev)) tab-always-indent 'complete completion-cycle-threshold t - ledger-complete-in-steps t)) + ledger-complete-in-steps t) + (defun chris/ledger-clean () + (interactive) + (when (eq major-mode #'ledger-mode) + (ledger-mode-clean-buffer))) + (add-hook 'after-save-hook #'chris/ledger-clean) + (add-hook 'ledger-reconcile-mode-hook #'(ledger-mode-clean-buffer)) + :general + (general-def 'normal ledger-mode-map + "ga" 'ledger-add-transaction)) #+end_src ** MU4E diff --git a/init.el b/init.el index 8cf6653c..a13ff30c 100644 --- a/init.el +++ b/init.el @@ -2695,7 +2695,16 @@ targets." #'cape-abbrev)) tab-always-indent 'complete completion-cycle-threshold t - ledger-complete-in-steps t)) + ledger-complete-in-steps t) + (defun chris/ledger-clean () + (interactive) + (when (eq major-mode #'ledger-mode) + (ledger-mode-clean-buffer))) + (add-hook 'after-save-hook #'chris/ledger-clean) + (add-hook 'ledger-reconcile-mode-hook #'(ledger-mode-clean-buffer)) + :general + (general-def 'normal ledger-mode-map + "ga" 'ledger-add-transaction)) (use-package mu4e ;; :load-path "~/.guix-home/profile/share/emacs/site-lisp/mu4e/" @@ -3665,3 +3674,23 @@ interfere with the default `bongo-playlist-buffer'." gcmh-verbose nil)) (setq warning-suppress-types '((comp))) +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(ledger-reports + '(("bal Income" "ledger bal Income") + ("bal" "%(binary) -f %(ledger-file) bal") + ("reg" "%(binary) -f %(ledger-file) reg") + ("payee" "%(binary) -f %(ledger-file) reg @%(payee)") + ("account" "%(binary) -f %(ledger-file) reg %(account)"))) + '(pdf-misc-print-program-args + '("-o media=Letter" "-o fitplot" "-o sides=two-sided-long-edge")) + '(pdf-misc-print-program-executable "lpr")) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))) diff --git a/templates b/templates index c5d6924f..d68f0770 100644 --- a/templates +++ b/templates @@ -177,4 +177,4 @@ nix-mode ledger-mode -(contribution "2022-12-01 Contributions" n> "Income:Supporters:" (p "supporter") > n> "Assets:Core") +(contribution "2023-11-01 Contributions" n> "Income:Supporters:" (p "supporter") > n> "Assets:Core")