Couple of minor cosmetic changes.

	* emoney.el (emoney-setup-accounts-buffer): Leave the buffer with
	point at the top of the list of accounts.
	(emoney-setup-header-buffer): Center and upcase the account name.

Signed-off-by: Steve Youngs <steve@sxemacs.org>

diff --git a/emoney.el b/emoney.el
index 39ef9fe..407fcea 100644 (file)
--- a/emoney.el
+++ b/emoney.el
@@ -605,6 +605,7 @@ in the current buffer."
        (setq accounts (cdr accounts)))
       (set-specifier horizontal-scrollbar-visible-p nil (current-buffer))
       (set-specifier has-modeline-p nil (current-buffer))
        (setq accounts (cdr accounts)))
       (set-specifier horizontal-scrollbar-visible-p nil (current-buffer))
       (set-specifier has-modeline-p nil (current-buffer))

+      (goto-char (point-min))

       (run-hooks 'emoney-setup-accounts-buffer-hook))))
 
 (defconst emoney-header
       (run-hooks 'emoney-setup-accounts-buffer-hook))))
 
 (defconst emoney-header


@@ -619,7 +620,9 @@ in the current buffer."
       (when (buffer-live-p (get-buffer-create buf))
        (kill-buffer buf))
       (set-buffer (get-buffer-create buf))
       (when (buffer-live-p (get-buffer-create buf))
        (kill-buffer buf))
       (set-buffer (get-buffer-create buf))

-      (insert-face emoney-current-account-name 'emoney-account-name-face)
+      (center-line
+       (insert-face (upcase emoney-current-account-name)
+                   'emoney-header-face))

       (insert "\n\n")
       (insert-face emoney-header 'emoney-header-face)
       (set-specifier horizontal-scrollbar-visible-p nil (current-buffer))
       (insert "\n\n")
       (insert-face emoney-header 'emoney-header-face)
       (set-specifier horizontal-scrollbar-visible-p nil (current-buffer))