From 3d7af7e7dfc091d7f2455bc4229aa837f904fbe5 Mon Sep 17 00:00:00 2001 From: Steve Youngs Date: Wed, 14 Dec 2011 11:20:47 +1000 Subject: [PATCH] Some cosmetic changes to improve the look. * 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 --- emoney.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/emoney.el b/emoney.el index 57fbbba..39ef9fe 100644 --- a/emoney.el +++ b/emoney.el @@ -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) @@ -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 @@ -1308,7 +1308,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 +1637,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) -- 2.25.1