 (defun ledger-schedule-is-holiday (date)
   "Return true if DATE is a holiday.")
 
-(defun ledger-schedule-scan-transactions (auto-file)
+(defun ledger-schedule-scan-transactions (schedule-file)
   "Scans AUTO_FILE and returns a list of transactions with date predicates.
 The car of each item is a fuction of date that returns true if
 the transaction should be logged for that day."
   (interactive "fFile name: ")
   (let ((xact-list (list)))
     (with-current-buffer
-	(find-file-noselect auto-file)
+	(find-file-noselect schedule-file)
       (goto-char (point-min))
       (while (re-search-forward "^\\[\\(.*\\)\\] " nil t)
 	(let ((date-descriptor "")


(defun ledger-schedule-test-setup ()
  (setq auto-items 
	(ledger-schedule-scan-transactions "~/FinanceData/ledger-schedule.ledger")))


(defun ledger-schedule-test-predict ()

	       (setq items (append items (list (list test-date (cadr candidate))))))))
    items))

(defun ledger-schedule-already-entered (candidate buffer)
  (let ((target-date (format-time-string date-format (car candidate)))
	     (target-payee (cadr candidate)))
    nil))

(defun ledger-schedule-create-auto-buffer (candidate-items early horizon ledger-buf)
  "Format CANDIDATE-ITEMS for display."
  (let ((candidates (ledger-schedule-list-upcoming-xacts candidate-items early horizon))
	(schedule-buf (get-buffer-create ledger-schedule-buffer-name))
	(date-format (cdr (assoc "date-format" ledger-environment-alist))))
    (with-current-buffer schedule-buf
      (erase-buffer)
     (dolist (candidate candidates)
       (if (not (ledger-schedule-already-entered candidate ledger-buf))
	   (insert (format-time-string date-format (car candidate) ) " " (cadr candidate) "\n"))))))


;;
;;  Test harnesses for use in ielm
;;
