Some cosmetic changes to improve the look.
authorSteve Youngs <steve@sxemacs.org>
Wed, 14 Dec 2011 01:20:47 +0000 (11:20 +1000)
committerSteve Youngs <steve@sxemacs.org>
Wed, 14 Dec 2011 01:20:47 +0000 (11:20 +1000)
* emoney.el (emoney-accounts-buffer-width): Increase to 35.

* emoney.el (emoney-setup-accounts-buffer): Move the money column
a litter further to the right for global whitespace balance.

* emoney.el (emoney-update-acc-buf-bal): Ditto.

* emoney.el (emoney): Include height and width properties for the
frame.

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

index 57fbbba..39ef9fe 100644 (file)
--- a/emoney.el
+++ b/emoney.el
   :prefix "emoney-"
   :group 'tools)
 
   :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)
   "How wide in columns for the accounts buffer."
   :type 'integer
   :group 'emoney)
@@ -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))))))
          (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
        (if cbal
            (insert-face
             (format
@@ -1308,7 +1308,7 @@ changed, and the transaction count are returned in a list."
     (goto-char (point-min))
     (search-forward account)
     (kill-line)
     (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)
     (insert-face
      (format (concat "%"
                     (number-to-string (- (length emoney-largest-balance)
@@ -1637,7 +1637,10 @@ will be saved before eMoney exits."
   (unless (frame-live-p emoney-frame)
     (setq emoney-frame
          (if emoney-use-new-frame
   (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)
            (selected-frame))))
   (select-frame emoney-frame)
   (let ((accounts emoney-chart-of-accounts)