    buffer."
   :group 'ledger)
 
+(defcustom ledger-reconcile-force-window-bottom nil
+  "If t make the reconcile window appear along the bottom of the
+   register window and resize"
+  :group 'ledger)
+
 (defun ledger-display-balance ()
   "Calculate the cleared balance of the account being reconciled"
   (interactive)

   (equal file "/dev/stdin")))

(defun ledger-reconcile-get-buffer (where)
;  (when (is-stdin (car where))
;    ledger-buf))
  (if (bufferp (car where))
      (car where)
      (error "buffer not set")))

        (delete-region (point) (1+ (line-end-position)))
        (set-buffer-modified-p t)))))

(defun ledger-reconcile-visit (&optional come-back)
  (progn
    (beginning-of-line)
    (let* ((where (get-text-property (1+ (point)) 'where))
	   (target-buffer (ledger-reconcile-get-buffer 
			   where))
	   (cur-buf (current-buffer)))
      (when target-buffer
	(switch-to-buffer-other-window target-buffer)
	(goto-char (cdr where))
	(recenter)
	(if come-back
	    (switch-to-buffer-other-window cur-buf))))))

(defun ledger-reconcile-save ()
  (interactive)
