author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Sat, 19 Oct 2013 20:00:55 +0300 | |
changeset 1083 | d4b063fc0f5e |
parent 1078 | bd0c280abe8a |
child 1134 | d91fa7f7033a |
permissions | -rw-r--r-- |
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
1 |
|
1078
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
2 |
(defface log4-hi-error-face |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
3 |
'((t :inherit error)) |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
4 |
"Face for critical message.") |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
5 |
|
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
6 |
(defface log4-hi-warn-face |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
7 |
'((t :inherit warning)) |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
8 |
"Face for urgent message.") |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
9 |
|
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
10 |
(defface log4-hi-info-face |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
11 |
'((t :inherit success)) |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
12 |
"Face for informational message.") |
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
13 |
|
1083
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
14 |
(defface log4-hi-func-face |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
15 |
'((t :inherit font-lock-function-name-face)) |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
16 |
"Face for functions in trace.") |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
17 |
|
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
18 |
(defvar log4-hi-keywords |
1078
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
19 |
'(("FATAL\\|ERROR" . 'log4-hi-error-face) |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
20 |
("WARN" . 'log4-hi-warn-face) |
bd0c280abe8a
Define own faces to remove dependency on compile.el.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1077
diff
changeset
|
21 |
("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) )) |
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
22 |
|
1083
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
23 |
(defvar log4-func-hi-keywords |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
24 |
'(("at [[:alnum:].]+\\.\\([[:alnum:]$]+\\.[[:alnum:]$<>]+\\)([[:alnum:]]+\\.java:[0-9]+)" 1 'log4-hi-func-face) )) |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
25 |
|
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
26 |
(defvar log4-func-hi t |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
27 |
"Mark to use hilighting of function names in stacktraces. Currently only Java supported.") |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
28 |
|
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
29 |
;;;###autoload |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
30 |
(define-minor-mode log4-hi-mode |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
31 |
"Highlight standard elements in log4* like log-files." |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
32 |
nil " log4-hi" nil |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
33 |
:global nil |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
34 |
(catch 'exit |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
35 |
(when log4-hi-mode |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
36 |
(font-lock-mode 1) |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
37 |
(font-lock-add-keywords nil log4-hi-keywords) |
1083
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
38 |
(when log4-func-hi (font-lock-add-keywords nil log4-func-hi-keywords)) |
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
39 |
(throw 'exit nil)) |
1083
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
40 |
(font-lock-remove-keywords nil log4-hi-keywords) |
d4b063fc0f5e
Add highlighting for Java stack traces.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
1078
diff
changeset
|
41 |
(font-lock-remove-keywords nil log4-func-hi-keywords)) |
1076
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
42 |
(font-lock-fontify-buffer)) |
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
43 |
|
eed45b8a9e3a
Highlight standard elements in log4* like log-files.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
44 |
(provide 'log4-hi-mode) |