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

Improve quick display.

Browse source
This commit is contained in:
Craig Earls 2013-04-08 10:45:04 -07:00
parent 33c046d068
commit 3adab52660
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ldg-mode.el
View file

@ -65,10 +65,12 @@ And calculate the target-delta of the account being reconciled."
(pending (ledger-reconcile-get-cleared-or-pending-balance (current-buffer) account))) (pending (ledger-reconcile-get-cleared-or-pending-balance (current-buffer) account)))
(when pending (when pending
(if ledger-target (if ledger-target
(message "Pending balance: %s, Difference from target: %s" (message "%s balance: %s, Difference from target: %s"
account
(ledger-commodity-to-string pending) (ledger-commodity-to-string pending)
(ledger-commodity-to-string (-commodity ledger-target pending))) (ledger-commodity-to-string (-commodity ledger-target pending)))
(message "Pending balance: %s" (message "%s balance: %s"
account
(ledger-commodity-to-string pending)))))) (ledger-commodity-to-string pending))))))
(defun ledger-magic-tab (&optional interactively) (defun ledger-magic-tab (&optional interactively)