Set up fontification independent of font-lock.

Basic functionality in place.  need to test further and expand detail fortification.

1 files changed, 8 insertions, 0 deletions

diff --git a/ledger-state.el b/ledger-state.el
index 989e6d3..4705e60 100644
--- a/ledger-state.el
+++ b/ledger-state.el
@@ -65,6 +65,14 @@
         ((eql state-char ?\;) 'comment)
         (t nil)))
 
+
+(defun ledger-state-from-string (state-string)
+  "Get state from STATE-CHAR."
+  (cond ((string= state-string "!") 'pending)
+        ((string= state-string "*") 'cleared)
+        ((string= state-string ";") 'comment)
+        (t nil)))
+
 (defun ledger-toggle-current-posting (&optional style)
   "Toggle the cleared status of the transaction under point.
 Optional argument STYLE may be `pending' or `cleared', depending