 	 (balance (with-temp-buffer
 		    (ledger-exec-ledger buffer (current-buffer) "cleared" account)
 		    (buffer-substring-no-properties (point-min) (1- (point-max))))))
-    (when balance      
+    (when balance
+      (message balance))))
+
+(defun ledger-display-ledger-stats ()
+  "Display the cleared-or-pending balance.
+And calculate the target-delta of the account being reconciled."
+  (interactive)
+  (let* ((buffer (current-buffer))
+				 (balance (with-temp-buffer
+										(ledger-exec-ledger buffer (current-buffer) "stats")
+										(buffer-substring-no-properties (point-min) (1- (point-max))))))
+    (when balance
       (message balance))))
 
 (defun ledger-magic-tab (&optional interactively)

      (define-key map [(control ?c) (control ?u)] 'ledger-schedule-upcoming)
      (define-key map [(control ?c) (control ?y)] 'ledger-set-year)
      (define-key map [(control ?c) (control ?p)] 'ledger-display-balance-at-point)
      (define-key map [tab] 'ledger-magic-tab)
      (define-key map [(control ?i)] 'ledger-magic-tab)
      (define-key map [(control ?c) tab] 'ledger-fully-complete-xact)

      (define-key map [(control ?c) (control ?o) (control ?k)] 'ledger-report-kill)
      (define-key map [(control ?c) (control ?o) (control ?r)] 'ledger-report)
      (define-key map [(control ?c) (control ?o) (control ?s)] 'ledger-report-save)

      (define-key map [(meta ?p)] 'ledger-post-prev-xact)
      (define-key map [(meta ?n)] 'ledger-post-next-xact)

