Add highlighting for Java stack traces.
--- a/log4-hi-mode.el Tue Oct 15 16:13:22 2013 +0300
+++ b/log4-hi-mode.el Sat Oct 19 20:00:55 2013 +0300
@@ -11,11 +11,21 @@
'((t :inherit success))
"Face for informational message.")
+(defface log4-hi-func-face
+ '((t :inherit font-lock-function-name-face))
+ "Face for functions in trace.")
+
(defvar log4-hi-keywords
'(("FATAL\\|ERROR" . 'log4-hi-error-face)
("WARN" . 'log4-hi-warn-face)
("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) ))
+(defvar log4-func-hi-keywords
+ '(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) ))
+
+(defvar log4-func-hi t
+ "Mark to use hilighting of function names in stacktraces. Currently only Java supported.")
+
;;;###autoload
(define-minor-mode log4-hi-mode
"Highlight standard elements in log4* like log-files."
@@ -25,8 +35,10 @@
(when log4-hi-mode
(font-lock-mode 1)
(font-lock-add-keywords nil log4-hi-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-keywords)
+ (font-lock-remove-keywords nil log4-func-hi-keywords))
(font-lock-fontify-buffer))
(provide 'log4-hi-mode)