From 182d5df307626c244efe581f3d8e58578babeb99 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 6 Feb 2009 15:20:06 -0400 Subject: Extended Ledger's font-lock expression, based on code from Timothy Stotts. --- lisp/ledger.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'lisp/ledger.el') diff --git a/lisp/ledger.el b/lisp/ledger.el index dffbb340..d7d6d0eb 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -129,11 +129,17 @@ text that should replace the format specifier." (defvar bold 'bold) (defvar ledger-font-lock-keywords - `((,(concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+" - "\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") 3 bold) - (";.+" . font-lock-comment-face) - ("^\\s-+.+?\\( \\|\t\\|\n\\|\\s-+$\\)" . font-lock-keyword-face)) - "Default expressions to highlight in Ledger mode.") + '(("^[0-9./=]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold) + ("\s \\{5,\\}\\([$]-[0-9][0-9,.]*\\)" 1 font-lock-warning-face) + ("\s \\{5,\\}\\(-?[0-9][0-9,.]*\\)" 1 font-lock-type-face) + ("^\\s-+.+?\\( \\|\t\\|\n\\|\\s-+$\\)" . font-lock-keyword-face) + ("^\s +\\((\\)\\([A-Za-z0-9]+:[A-Za-z0-9]+[A-Za-z0-9: ]*\\)\\()\\)" + (1 font-lock-function-name-face) + (2 font-lock-variable-name-face) + (3 font-lock-function-name-face)) + ("^[0-9]+[/-][0-9]+.*\\([*]\\)" 1 bold) + ("^\\([~=]\\)\\s " 1 font-lock-function-name-face)) + "Improved expressions to highlight in Ledger mode.") (defsubst ledger-current-year () (format-time-string "%Y")) -- cgit v1.2.3