From 5d613965dafd3c939dc08786cf79f50f756ee198 Mon Sep 17 00:00:00 2001 From: Steve Youngs Date: Sat, 11 Jun 2016 11:43:17 +1000 Subject: [PATCH] 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 --- emoney.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/emoney.el b/emoney.el index 39ef9fe..407fcea 100644 --- 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)) + (goto-char (point-min)) (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)) - (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)) -- 2.25.1