diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-02-14 18:52:11 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-02-14 18:52:11 +0100 |
commit | f5b7f689e6eeeb439346652566f6d841470376f4 (patch) | |
tree | 59635d98448d4181ffe1afb53beccd63c118c5ea /ide/tags.ml | |
parent | 4a53151f846476f2fbe038a4ecb8e84256a26ba9 (diff) |
Attempt to be more colorblind friendly in CoqIDE (Close #4024)
Diffstat (limited to 'ide/tags.ml')
-rw-r--r-- | ide/tags.ml | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/ide/tags.ml b/ide/tags.ml index 04ad9a519..40d5b4ded 100644 --- a/ide/tags.ml +++ b/ide/tags.ml @@ -13,15 +13,23 @@ let make_tag (tt:GText.tag_table) ~name prop = tt#add new_tag#as_tag; new_tag -let processed_color = ref "light green" -let processing_color = ref "light blue" -let error_color = ref "#FFCCCC" +(* These work fine for colorblind people too *) +let default_processed_color = "light green" +let default_processing_color = "light blue" +let default_error_color = "#FF3333" +let default_error_fg_color = "#FF5555" +let default_color = "cornsilk" + +let processed_color = ref default_processed_color +let processing_color = ref default_processing_color +let error_color = ref default_error_color +let error_fg_color = ref default_error_fg_color module Script = struct let table = GText.tag_table () let comment = make_tag table ~name:"comment" [] - let error = make_tag table ~name:"error" [`UNDERLINE `SINGLE ; `FOREGROUND "red"] + let error = make_tag table ~name:"error" [`UNDERLINE `SINGLE ; `FOREGROUND !error_fg_color] let error_bg = make_tag table ~name:"error_bg" [`BACKGROUND !error_color] let to_process = make_tag table ~name:"to_process" [`BACKGROUND !processing_color] let processed = make_tag table ~name:"processed" [`BACKGROUND !processed_color] @@ -94,3 +102,11 @@ let set_error_color clr = let s = string_of_color clr in error_color := s; Script.error_bg#set_property (`BACKGROUND s) + +let get_error_fg_color () = color_of_string !error_fg_color + +let set_error_fg_color clr = + let s = string_of_color clr in + error_fg_color := s; + Script.error#set_property (`FOREGROUND s) + |