paparazzicenter: green background color for info messages (e.g. via #pragma message)

This commit is contained in:
Felix Ruess
2012-02-12 15:53:59 +01:00
parent 6d140c82c8
commit 7f72fcd2cd
+3 -2
View File
@@ -206,7 +206,8 @@ let () =
gui#console#set_buffer buffer; gui#console#set_buffer buffer;
let errors = "red", ["error"; "no such file"; "undefined reference"; "failure"] let errors = "red", ["error"; "no such file"; "undefined reference"; "failure"]
and warnings = "orange", ["warning"] in and warnings = "orange", ["warning"]
and info = "green", ["message"; "info"] in
let color_regexps = let color_regexps =
List.map (fun (color, strings) -> List.map (fun (color, strings) ->
@@ -214,7 +215,7 @@ let () =
let s = String.concat "\\|" s in let s = String.concat "\\|" s in
let s = ".*\\("^s^"\\)" in let s = ".*\\("^s^"\\)" in
color, Str.regexp_case_fold s) color, Str.regexp_case_fold s)
[errors; warnings] in [errors; warnings; info] in
let compute_tags = fun s -> let compute_tags = fun s ->
let rec loop = function let rec loop = function
(color, regexp)::rs -> (color, regexp)::rs ->