sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust payee line fortification.

Browse source
This commit is contained in:
Craig Earls 2014-12-02 06:30:41 -07:00
parent c844170aed
commit eba603293b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ledger-fontify.el
View file

@ -51,6 +51,7 @@
(defun ledger-fontify-xact-at (position) (defun ledger-fontify-xact-at (position)
"Fontify the xact at POS." "Fontify the xact at POS."
(interactive "d")
(save-excursion (save-excursion
(goto-char position) (goto-char position)
(let ((extents (ledger-navigate-find-element-extents position)) (let ((extents (ledger-navigate-find-element-extents position))
@ -83,9 +84,10 @@ Fontify the first line of an xact"
(cur-point (point))) (cur-point (point)))
(re-search-forward " ") (re-search-forward " ")
(ledger-fontify-set-face (list cur-point (point)) 'ledger-font-posting-date-face) (ledger-fontify-set-face (list cur-point (point)) 'ledger-font-posting-date-face)
(beginning-of-line)
(re-search-forward ledger-xact-after-date-regex) (re-search-forward ledger-xact-after-date-regex)
(save-match-data (setq state (ledger-state-from-string (match-string 1))) (save-match-data (setq state (ledger-state-from-string (match-string 1)))
(ledger-fontify-set-face (list (match-beginning 3) (match-end 3)) (ledger-fontify-set-face (list (match-beginning 1) (match-end 3))
(cond ((eq state 'pending) (cond ((eq state 'pending)
'ledger-font-payee-pending-face) 'ledger-font-payee-pending-face)
((eq state 'cleared) ((eq state 'cleared)