summaryrefslogtreecommitdiff
path: root/lisp/ledger-reconcile.el
diff options
context:
space:
mode:
authorCraig Earls <enderw88@gmail.com>2014-01-02 10:09:23 -0800
committerCraig Earls <enderw88@gmail.com>2014-01-02 10:09:23 -0800
commitbde5e69c9acf54e0d9f6eec7f380a15f82d3102e (patch)
treee6f03a43fb5c9b33052be54147abca9ac0635c15 /lisp/ledger-reconcile.el
parent876cfa1f78d4c036332f3d918a88817fe72353e4 (diff)
parent741a275cc99f73521e9588798a21f62aebf7fa7c (diff)
downloadfork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.tar.gz
fork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.tar.bz2
fork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.zip
Merge pull request #228 from the-kenny/emacs-prompt-effective-date
Emacs: Improve effictive-date-handling
Diffstat (limited to 'lisp/ledger-reconcile.el')
-rw-r--r--lisp/ledger-reconcile.el10
1 files changed, 9 insertions, 1 deletions
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)