From e314ff32e87451b9574b4b762986e37b42f0fd24 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Wed, 30 Aug 2023 07:02:13 +0200 Subject: Emacs: remove ledger-mode configuration --- user/emacs/init.el | 28 ---------------------------- 1 file changed, 28 deletions(-) (limited to 'user/emacs') diff --git a/user/emacs/init.el b/user/emacs/init.el index 13b5f1b2..0efc5793 100644 --- a/user/emacs/init.el +++ b/user/emacs/init.el @@ -376,7 +376,6 @@ _p_rev _u_pper _=_: upper/lower _r_esolve (setq evil-mode-line-format nil) (evil-set-undo-system 'undo-redo) (add-to-list 'evil-emacs-state-modes 'eshell-mode) - (add-to-list 'evil-emacs-state-modes 'ledger-reconcile-mode) (evil-mode +1)) :general (:states 'motion @@ -828,33 +827,6 @@ _p_rev _u_pper _=_: upper/lower _r_esolve (use-package kubel-evil :ghook 'kubel-mode-hook) -;;;; ledger - -(use-package ledger-mode - :gfhook '(ledger-flymake-enable ws-butler-mode) - :defer t - :config (progn - (setq ledger-reconcile-default-commodity "€" - ledger-narrow-on-reconcile t - ledger-clear-whole-transactions t - ledger-reports `(("Monthly Expenses" "ledger -f %(ledger-file) reg -M \\^Expenses --real -X EUR -l \"payee != 'Opening Balances'\"") - ("Total Expenses:This Month" "ledger -f %(ledger-file) bal \\^Expenses -p \"this month\"") - ("Total Expenses:Past 90 Days" ,(concat "ledger -f %(ledger-file) balance ^Expenses -b " - (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -90))))) - ("Total Expenses:Past 180 Days" ,(concat "ledger -f %(ledger-file) balance ^Expenses -b " - (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -180))))) - ("Expenses:This Month" "ledger -f %(ledger-file) register \\^Expenses -p \"this month\"") - ("Expenses:Past 90 Days (monthly)" ,(concat "ledger -f %(ledger-file) register --monthly ^Expenses -b " - (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -90))))) - ("Expenses:Past 180 Days (monthly)" ,(concat "ledger -f %(ledger-file) register --monthly ^Expenses -b " - (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -180))))) - ("All Account Balances" "ledger -f %(ledger-file) bal --current -R \\^Assets \\^Liabilities"))))) - - -(use-package evil-ledger - :after ledger-mode - :ghook '(ledger-mode-hook)) - ;;;; org (use-package org -- cgit 1.4.1