Display preview when adding from reconcile buffer

Author: bcc32

ledger-reconcile.el

@@ -331,8 +331,11 @@ Return the number of uncleared xacts found."
 
 When called interactively, prompt for DATE, then XACT."
   (interactive
-   (list (ledger-read-date "Date: ")
-         (read-string "Transaction: " nil 'ledger-minibuffer-history)))
+   (let* ((date (ledger-read-date "Date: "))
+          (xact-text
+           (with-current-buffer ledger-reconcile-ledger-buf
+             (ledger-read-transaction-text date))))
+     (list date xact-text)))
   (with-current-buffer ledger-reconcile-ledger-buf
     (ledger-add-transaction (concat date " " xact)))
   (ledger-reconcile-refresh))

ledger-xact.el

@@ -270,7 +270,11 @@ displayed."
       (delete-window window))))
 
 (defun ledger-read-transaction-text (date)
-  "Read the text of a transaction with date DATE."
+  "Read the text of a transaction with date DATE.
+
+The ledger buffer should be current when this function is called, since
+it will be used as input for \"ledger xact\" for the sake of previewing
+output."
   (let ((ledger-buf (current-buffer)))
     (minibuffer-with-setup-hook
         (lambda ()