diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-04-10 16:12:42 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-04-10 19:43:08 +0200 |
| commit | 7477094b353b48f1bd1f8ee97a8cd69c04be9db9 (patch) | |
| tree | 4170869fea6012788ad042a53790d2d83bc0fee2 /ide/preferences.ml | |
| parent | cbd7317516eaac4a5f37c896da5ea984ec1bb77a (diff) | |
CoqIDE: options for syntax highlighting
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 585dce21f..b774ac842 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -78,6 +78,7 @@ let inputenc_of_string s = (** Hooks *) let refresh_style_hook = ref (fun () -> ()) +let refresh_language_hook = ref (fun () -> ()) let refresh_editor_hook = ref (fun () -> ()) let refresh_toolbar_hook = ref (fun () -> ()) let contextual_menus_on_goal_hook = ref (fun x -> ()) @@ -657,6 +658,19 @@ let configure ?(apply=(fun () -> ())) () = style_manager#style_scheme_ids current.source_style in + let source_language = + let f s = + current.source_language <- s; + !refresh_language_hook () + in + combo "Language:" + ~f ~new_allowed:false + (List.filter + (fun x -> Str.string_match (Str.regexp "^coq") x 0) + lang_manager#language_ids) + current.source_language + in + let read_project = combo "Project file options are" @@ -794,7 +808,8 @@ let configure ?(apply=(fun () -> ())) () = let cmds = [Section("Fonts", Some `SELECT_FONT, [config_font]); - Section("Colors", Some `SELECT_COLOR, [config_color; source_style]); + Section("Colors", Some `SELECT_COLOR, + [config_color; source_language; source_style]); Section("Editor", Some `EDIT, [config_editor]); Section("Files", Some `DIRECTORY, [global_auto_revert;global_auto_revert_delay; |