sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extended Ledger's font-lock expression, based on code from Timothy Stotts.

Browse source
This commit is contained in:
John Wiegley 2009-02-06 15:20:06 -04:00
parent 7c77a1af31
commit 182d5df307
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ledger.el
View file

@ -129,11 +129,17 @@ text that should replace the format specifier."
(defvar bold 'bold) (defvar bold 'bold)
(defvar ledger-font-lock-keywords (defvar ledger-font-lock-keywords
`((,(concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+" '(("^[0-9./=]+\\s-+\\(?:([^)]+)\\s-+\\)?\\([^*].+\\)" 1 bold)
"\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") 3 bold) ("\s \\{5,\\}\\([$]-[0-9][0-9,.]*\\)" 1 font-lock-warning-face)
(";.+" . font-lock-comment-face) ("\s \\{5,\\}\\(-?[0-9][0-9,.]*\\)" 1 font-lock-type-face)
("^\\s-+.+?\\( \\|\t\\|\n\\|\\s-+$\\)" . font-lock-keyword-face)) ("^\\s-+.+?\\( \\|\t\\|\n\\|\\s-+$\\)" . font-lock-keyword-face)
"Default expressions to highlight in Ledger mode.") ("^\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 () (defsubst ledger-current-year ()
(format-time-string "%Y")) (format-time-string "%Y"))