From 4a003b5828fadd47cbea4144ca5352bf6ad4941c Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 24 Aug 2014 21:38:29 -0700 Subject: fontifying xact starts and postings. initial testing looks better than previous font-lock methods. Need run time and performance testing. --- lisp/ledger-regex.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lisp/ledger-regex.el') diff --git a/lisp/ledger-regex.el b/lisp/ledger-regex.el index 49a2b114..bc7e926b 100644 --- a/lisp/ledger-regex.el +++ b/lisp/ledger-regex.el @@ -341,12 +341,14 @@ )) (defconst ledger-posting-regex - (concat "^[ \t]+" ;; initial white space - "\\(" - "\\([[:word:]: ]*?\n?\\) " ;; account, subexpr 2 - "\\(.*?\\)" ;; amount, subexpr 3 - "\\(\n\\|\\(;.*\\)\\)" ;; comment, subexpr 5 - "\\)")) + (concat "^[ \t]+ ?" ;; initial white space + "\\([*!]\\)? ?" ;; state, subexpr 1 + "\\([[:word:]: ]+\\(\n\\|[ \t][ \t]\\)\\)" ;; account, subexpr 2 + "\\([^;\n]*\\)" ;; amount, subexpr 4 + "\\(.*\\)" ;; comment, subexpr 5 + )) + + (defconst ledger-directive-start-regex "[=~;#%|\\*[A-Za-z]") -- cgit v1.2.3