* 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>
: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)
(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
(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)
(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)