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