updating kaladins stuff

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

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"))))

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")