-(defun emoney-new-account (&optional name balance)
- "*Create a new A/C named NAME for use with eMoney."
- (interactive)
- (let ((new-acc (concat (or name
- (read-string "New A/C Name: ")) ".emy"))
- (bal (or balance
- (read-number "Initial Balance: " nil 0))))
- (find-file-noselect
- (expand-file-name new-acc emoney-accounts-directory))
- (setq emoney-chart-of-accounts
- (push new-acc emoney-chart-of-accounts))
- (select-window (get-buffer-window
- (concat emoney-current-account-name ".emy")))
- (switch-to-buffer new-acc)
- (setq emoney-current-account-name
- (file-name-sans-extension new-acc))
- (emoney-append-transaction "init" "Opening Balance" bal)
- (emoney-recalculate-buffer)
- (emoney-show-buffers)
- (switch-to-buffer new-acc)
- (goto-char (point-max))
- (run-hooks 'emoney-new-account-hook)))
+(defun emoney-new-account (new-acc bal)
+ "*Create a new A/C named NEW-ACC with initial balance BAL."
+ (interactive
+ (list (concat (read-string "New A/C Name: ") ".emy")
+ (read-number "Initial Balance: " nil 0)))
+ (find-file-noselect
+ (expand-file-name new-acc emoney-accounts-directory))
+ (setq emoney-chart-of-accounts
+ (push new-acc emoney-chart-of-accounts))
+ (select-window (get-buffer-window
+ (concat emoney-current-account-name ".emy")))
+ (switch-to-buffer new-acc)
+ (setq emoney-current-account-name
+ (file-name-sans-extension new-acc))
+ (emoney-append-transaction "init" "Opening Balance" bal)
+ (emoney-recalculate-buffer)
+ (emoney-show-buffers)
+ (switch-to-buffer new-acc)
+ (goto-char (point-max))
+ (run-hooks 'emoney-new-account-hook))