 	(delete-blank-lines)
 	(delete-region beg (point))))))
 
-(defun ledger-toggle-current ()
+(defun ledger-toggle-current (&optional style)
   (interactive)
   (let (clear)
     (save-excursion

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

(defun ledger-reconcile-save ()
  (interactive)
  (with-current-buffer ledger-buf
    (save-buffer))
  (set-buffer-modified-p nil)
  (ledger-display-balance))

(defun ledger-do-reconcile ()
  (let* ((buf ledger-buf)

		(re-search-backward "^[0-9]" nil t))
	(skip-chars-forward "0-9./")
	(delete-horizontal-space)
	(if (member (char-after) '(?\* ?\!))
	    (progn
	      (delete-char 1)
	      (if (and style (eq style 'cleared))
		  (insert " *")))
	  (if (and style (eq style 'pending))
	      (insert " ! ")
	    (insert " * "))
	  (setq clear t))))
    clear))

