# HG changeset patch # User Oleksandr Gavenko # Date 1397668342 -10800 # Node ID 26996dddc80febe4687d7562d0e79396a996547b # Parent b6dcbd7478845ca4fd9bbbeefff9035f37f4e1c6 Add highlighting for time. diff -r b6dcbd747884 -r 26996dddc80f log4-hi-mode.el --- a/log4-hi-mode.el Fri Apr 11 12:02:49 2014 +0300 +++ b/log4-hi-mode.el Wed Apr 16 20:12:22 2014 +0300 @@ -15,6 +15,10 @@ '((t :inherit font-lock-function-name-face)) "Face for functions in trace.") +(defface log4-hi-time-face + '((t :inherit font-lock-builtin-face)) + "Face for time.") + (defvar log4-hi-keywords '(("FATAL\\|ERROR" . 'log4-hi-error-face) ("WARN\\|SEVERE" . 'log4-hi-warn-face) @@ -23,6 +27,9 @@ (defvar log4-func-hi-keywords '(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) )) +(defvar log4-hi-time-keywords + '(("\\<[0-9]?[0-9]:[0-9][0-9]:[0-9][0-9]\\>" . 'log4-hi-time-face))) + (defvar log4-func-hi t "Mark to use hilighting of function names in stacktraces. Currently only Java supported.") @@ -35,9 +42,11 @@ (when log4-hi-mode (font-lock-mode 1) (font-lock-add-keywords nil log4-hi-keywords) + (font-lock-add-keywords nil log4-hi-time-keywords) (when log4-func-hi (font-lock-add-keywords nil log4-func-hi-keywords)) (throw 'exit nil)) (font-lock-remove-keywords nil log4-hi-keywords) + (font-lock-remove-keywords nil log4-hi-time-keywords) (font-lock-remove-keywords nil log4-func-hi-keywords)) (font-lock-fontify-buffer))