 ;; type M-x ledger-mode.  Once this is done, you can type:
 ;;
 ;;   C-c C-a  add a new entry, based on previous entries
+;;   C-c C-y  set default year for entry mode
+;;   C-c C-m  set default month for entry mode
 ;;   C-c C-r  reconcile the entries related to an account
 ;;
 ;; In the reconcile buffer, use SPACE to toggle the cleared status of

  '(("^[0-9./]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold)
    ("^\\s-+.+?\\(  \\|\t\\|\\s-+$\\)" . font-lock-keyword-face))
  "Default expressions to highlight in Ledger mode.")

(defun ledger-iterate-entries (callback)
  (goto-char (point-min))


(defun ledger-add-entry (entry-text)
  (interactive
   (list
    (read-string "Entry: " (concat ledger-year "/" ledger-month "/"))))
  (let* ((date (car (split-string entry-text)))
	 (insert-year t) exit-code)
    (if (string-match "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)" date)
