From 1078600d993baaf585d91a476f0d03c992817518 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 19 Nov 2019 23:16:27 +0100
Subject: Emacs: setup ledger and evil-ledger

---
 user/emacs/.emacs.d/init.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'user/emacs')

diff --git a/user/emacs/.emacs.d/init.el b/user/emacs/.emacs.d/init.el
index d535aa51..fbdcb402 100644
--- a/user/emacs/.emacs.d/init.el
+++ b/user/emacs/.emacs.d/init.el
@@ -696,6 +696,24 @@ _p_rev       _u_pper              _=_: upper/lower       _r_esolve
 (use-package beancount
   :load-path "~/projects/bitbucket.org/blais/beancount/editors/emacs")
 
+;;;; ledger
+
+(use-package ledger-mode
+  :config (progn
+            (setq ledger-reconcile-default-commodity "€"
+                  ledger-narrow-on-reconcile t
+                  ledger-reports `(("Monthly Expenses" "ledger -f %(ledger-file) reg -M \\^Flex --real -X EUR -l \"payee != 'Opening Balances'\"")
+                                   ("Average Monthly Expenses (Past 12 Months)" ,(concat "ledger -f %(ledger-file) -b "
+                                                                                    (format-time-string "%Y-%m" (time-add (current-time) (days-to-time -365)))
+                                                                                    " --monthly --average balance ^Flex"))
+                                   ("Expenses:This Month" "ledger -f %(ledger-file) bal \\^Flex -p \"this month\"")
+                                   ("All Account Balances" "ledger -f %(ledger-file) bal --current -R \\^Assets \\^Liabilities")))))
+
+
+(use-package evil-ledger
+  :after ledger-mode
+  :ghook '(ledger-mode-hook))
+
 ;;;; org
 
 (custom-set-variables '(org-ellipsis "…")
-- 
cgit 1.4.1