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