Fontify cleared and pending transactions using font-lock-keywords

* ledger-fontify-xact-at: Move logic…
* ledger-font-lock-keywords: …here.

1 files changed, 2 insertions, 22 deletions

diff --git a/ledger-fontify.el b/ledger-fontify.el
index 02744f5..0c32f67 100644
--- a/ledger-fontify.el
+++ b/ledger-fontify.el
@@ -49,33 +49,13 @@ This is for use as a `font-lock-fontify-region-function'."
       (cond ((or (looking-at ledger-xact-start-regex)
                  (looking-at "^[=~][[:blank:]]")
                  (looking-at ledger-posting-regex)
-                 (looking-at ledger-recurring-line-regexp))
-             (ledger-fontify-xact-at (point)))
-            ((looking-at ledger-directive-start-regex)
+                 (looking-at ledger-recurring-line-regexp)
+                 (looking-at ledger-directive-start-regex))
              (let ((extents (ledger-navigate-find-element-extents (point))))
                (save-excursion
                  (font-lock-fontify-keywords-region (car extents) (cadr extents))))))
       (ledger-navigate-next-xact-or-directive))))
 
-(defun ledger-fontify-xact-at (position)
-  "Fontify the xact at POSITION."
-  (interactive "d")
-  (save-excursion
-    (goto-char position)
-    (let ((extents (ledger-navigate-find-element-extents position))
-          (state (ledger-transaction-state)))
-      (cond
-       ((and ledger-fontify-xact-state-overrides state)
-        (cond ((eq state 'cleared)
-               (ledger-fontify-set-face extents 'ledger-font-xact-cleared-face))
-              ((eq state 'pending)
-               (ledger-fontify-set-face extents 'ledger-font-xact-pending-face)))))
-      (font-lock-fontify-keywords-region (car extents) (cadr extents)))))
-
-(defun ledger-fontify-set-face (extents face)
-  "Set the text in EXTENTS to FACE."
-  (put-text-property (car extents) (cadr extents) 'face face))
-
 
 (provide 'ledger-fontify)