log4-hi-mode.el
changeset 1136 26996dddc80f
parent 1134 d91fa7f7033a
child 1137 b260dc221119
--- 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))