sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make quick balance showed "cleared" results

Browse source
This commit is contained in:
Craig Earls 2013-04-08 11:40:10 -07:00
parent 3adab52660
commit 76145828fd
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ldg-mode.el
View file

@ -62,16 +62,12 @@ And calculate the target-delta of the account being reconciled."
(interactive) (interactive)
(let* ((account (ledger-read-account-with-prompt "Account balance to show")) (let* ((account (ledger-read-account-with-prompt "Account balance to show"))
(pending (ledger-reconcile-get-cleared-or-pending-balance (current-buffer) account))) (buffer (current-buffer))
(when pending (balance (with-temp-buffer
(if ledger-target (ledger-exec-ledger buffer (current-buffer) "cleared" account)
(message "%s balance: %s, Difference from target: %s" (buffer-substring-no-properties (point-min) (1- (point-max))))))
account (when balance
(ledger-commodity-to-string pending) (message balance))))
(ledger-commodity-to-string (-commodity ledger-target pending)))
(message "%s balance: %s"
account
(ledger-commodity-to-string pending))))))
(defun ledger-magic-tab (&optional interactively) (defun ledger-magic-tab (&optional interactively)
"Decide what to with with <TAB> . "Decide what to with with <TAB> .