equal
deleted
inserted
replaced
13 |
13 |
14 (defface log4-hi-func-face |
14 (defface log4-hi-func-face |
15 '((t :inherit font-lock-function-name-face)) |
15 '((t :inherit font-lock-function-name-face)) |
16 "Face for functions in trace.") |
16 "Face for functions in trace.") |
17 |
17 |
|
18 (defface log4-hi-time-face |
|
19 '((t :inherit font-lock-builtin-face)) |
|
20 "Face for time.") |
|
21 |
18 (defvar log4-hi-keywords |
22 (defvar log4-hi-keywords |
19 '(("FATAL\\|ERROR" . 'log4-hi-error-face) |
23 '(("FATAL\\|ERROR" . 'log4-hi-error-face) |
20 ("WARN\\|SEVERE" . 'log4-hi-warn-face) |
24 ("WARN\\|SEVERE" . 'log4-hi-warn-face) |
21 ("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) )) |
25 ("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) )) |
22 |
26 |
23 (defvar log4-func-hi-keywords |
27 (defvar log4-func-hi-keywords |
24 '(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) )) |
28 '(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) )) |
|
29 |
|
30 (defvar log4-hi-time-keywords |
|
31 '(("\\<[0-9]?[0-9]:[0-9][0-9]:[0-9][0-9]\\>" . 'log4-hi-time-face))) |
25 |
32 |
26 (defvar log4-func-hi t |
33 (defvar log4-func-hi t |
27 "Mark to use hilighting of function names in stacktraces. Currently only Java supported.") |
34 "Mark to use hilighting of function names in stacktraces. Currently only Java supported.") |
28 |
35 |
29 ;;;###autoload |
36 ;;;###autoload |
33 :global nil |
40 :global nil |
34 (catch 'exit |
41 (catch 'exit |
35 (when log4-hi-mode |
42 (when log4-hi-mode |
36 (font-lock-mode 1) |
43 (font-lock-mode 1) |
37 (font-lock-add-keywords nil log4-hi-keywords) |
44 (font-lock-add-keywords nil log4-hi-keywords) |
|
45 (font-lock-add-keywords nil log4-hi-time-keywords) |
38 (when log4-func-hi (font-lock-add-keywords nil log4-func-hi-keywords)) |
46 (when log4-func-hi (font-lock-add-keywords nil log4-func-hi-keywords)) |
39 (throw 'exit nil)) |
47 (throw 'exit nil)) |
40 (font-lock-remove-keywords nil log4-hi-keywords) |
48 (font-lock-remove-keywords nil log4-hi-keywords) |
|
49 (font-lock-remove-keywords nil log4-hi-time-keywords) |
41 (font-lock-remove-keywords nil log4-func-hi-keywords)) |
50 (font-lock-remove-keywords nil log4-func-hi-keywords)) |
42 (font-lock-fontify-buffer)) |
51 (font-lock-fontify-buffer)) |
43 |
52 |
44 (provide 'log4-hi-mode) |
53 (provide 'log4-hi-mode) |