diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-08-24 21:38:29 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-08-24 21:38:29 -0700 |
| commit | 4a003b5828fadd47cbea4144ca5352bf6ad4941c (patch) | |
| tree | 25ef4aab20e53064e4db02200b1ebae906ac0e95 /lisp/ledger-regex.el | |
| parent | 4deaeb02c9dfb3f1bf51e998b85b0a433ac9f212 (diff) | |
| download | ledger-4a003b5828fadd47cbea4144ca5352bf6ad4941c.tar.gz ledger-4a003b5828fadd47cbea4144ca5352bf6ad4941c.tar.bz2 ledger-4a003b5828fadd47cbea4144ca5352bf6ad4941c.zip | |
fontifying xact starts and postings.
initial testing looks better than previous font-lock methods. Need run time and performance testing.
Diffstat (limited to 'lisp/ledger-regex.el')
| -rw-r--r-- | lisp/ledger-regex.el | 14 |
1 files changed, 8 insertions, 6 deletions
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]") |