From 09ef323a7364d7f27c44bcfdce01e9b41063284c Mon Sep 17 00:00:00 2001 From: Moritz Ulrich Date: Thu, 2 Jan 2014 18:44:15 +0100 Subject: ledger-reconcile: Add option to insert an effective date when clearing transactions. --- lisp/ledger-reconcile.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index 44e60532..47f0e176 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -80,6 +80,11 @@ reconcile-finish will mark all pending posting cleared." :type 'string :group 'ledger-reconcile) +(defcustom ledger-reconcile-insert-effective-date nil + "If t, prompt for effective date when clearing transactions during reconciliation." + :type 'boolean + :group 'ledger-reconcile) + (defun ledger-reconcile-get-cleared-or-pending-balance (buffer account) "Calculate the cleared or pending balance of the account." @@ -136,7 +141,10 @@ And calculate the target-delta of the account being reconciled." (forward-char) (setq status (ledger-toggle-current (if ledger-reconcile-toggle-to-pending 'pending - 'cleared)))) + 'cleared))) + (when ledger-reconcile-insert-effective-date + ;; Ask for effective date & insert it + (ledger-insert-effective-date))) ;; remove the existing face and add the new face (remove-text-properties (line-beginning-position) (line-end-position) -- cgit v1.2.3