equal
deleted
inserted
replaced
1 |
1 |
2 (require 'compile) |
2 (defface log4-hi-error-face |
|
3 '((t :inherit error)) |
|
4 "Face for critical message.") |
|
5 |
|
6 (defface log4-hi-warn-face |
|
7 '((t :inherit warning)) |
|
8 "Face for urgent message.") |
|
9 |
|
10 (defface log4-hi-info-face |
|
11 '((t :inherit success)) |
|
12 "Face for informational message.") |
3 |
13 |
4 (defvar log4-hi-keywords |
14 (defvar log4-hi-keywords |
5 '(("FATAL\\|ERROR" . compilation-error-face) |
15 '(("FATAL\\|ERROR" . 'log4-hi-error-face) |
6 ("WARN" . compilation-warning-face) |
16 ("WARN" . 'log4-hi-warn-face) |
7 ("INFO\\|DEBUG\\|TRACE" . compilation-info-face) )) |
17 ("INFO\\|DEBUG\\|TRACE" . 'log4-hi-info-face) )) |
8 |
18 |
9 ;;;###autoload |
19 ;;;###autoload |
10 (define-minor-mode log4-hi-mode |
20 (define-minor-mode log4-hi-mode |
11 "Highlight standard elements in log4* like log-files." |
21 "Highlight standard elements in log4* like log-files." |
12 nil " log4-hi" nil |
22 nil " log4-hi" nil |