Couple of minor cosmetic changes.

[emoney] / emoney.el

diff --git a/emoney.el b/emoney.el
index b0fc78f..407fcea 100644 (file)
--- a/emoney.el
+++ b/emoney.el
@@ -1,6 +1,6 @@
 ;; emoney.el --- A home finance package.
 
-;; Copyright (C) 2003 - 2009 Steve Youngs
+;; Copyright (C) 2003 - 2011 Steve Youngs
 
 ;; Author:        Steve Youngs <steve@sxemacs.org>
 ;; Maintainer:    Steve Youngs <steve@sxemacs.org>
@@ -119,7 +119,7 @@
   :prefix "emoney-"
   :group 'tools)
 
-(defcustom emoney-accounts-buffer-width 30
+(defcustom emoney-accounts-buffer-width 35
   "How wide in columns for the accounts buffer."
   :type 'integer
   :group 'emoney)
@@ -436,7 +436,7 @@ See `emoney-recalculate-before-hook' for doing things before recalculating."
   :group 'emoney-faces)
 
 ;;; Internal variables
-(defconst emoney-codename "Equity"
+(defconst emoney-codename "Finance"
   "The codename of the current version of eMoney.")
 
 (defconst emoney-is-beta t
@@ -588,7 +588,7 @@ in the current buffer."
          (re-search-backward "\\s-[\\+-=]\\s-" nil t)
          (setq cbal (nth 2 (emoney-parse-transaction-data
                             (buffer-substring (point) (point-at-eol))))))
-         (move-to-column 13 'force)
+         (move-to-column 18 'force)
        (if cbal
            (insert-face
             (format
@@ -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))
@@ -1308,7 +1311,7 @@ changed, and the transaction count are returned in a list."
     (goto-char (point-min))
     (search-forward account)
     (kill-line)
-    (move-to-column 13 'force)
+    (move-to-column 18 'force)
     (insert-face
      (format (concat "%"
                     (number-to-string (- (length emoney-largest-balance)
@@ -1637,7 +1640,10 @@ will be saved before eMoney exits."
   (unless (frame-live-p emoney-frame)
     (setq emoney-frame
          (if emoney-use-new-frame
-             (make-frame '((name . "eMoney")))
+             ;; FIXME: make the frame props customisable
+             (make-frame '((name . "eMoney")
+                           (height . 40)
+                           (width . 80)))
            (selected-frame))))
   (select-frame emoney-frame)
   (let ((accounts emoney-chart-of-accounts)