diff options
author | Craig Earls <enderw88@gmail.com> | 2014-01-02 10:09:23 -0800 |
---|---|---|
committer | Craig Earls <enderw88@gmail.com> | 2014-01-02 10:09:23 -0800 |
commit | bde5e69c9acf54e0d9f6eec7f380a15f82d3102e (patch) | |
tree | e6f03a43fb5c9b33052be54147abca9ac0635c15 /lisp/ledger-reconcile.el | |
parent | 876cfa1f78d4c036332f3d918a88817fe72353e4 (diff) | |
parent | 741a275cc99f73521e9588798a21f62aebf7fa7c (diff) | |
download | fork-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.el | 10 |
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) |