let read_style_scheme_selection ?(manager=source_style_scheme_manager) () =
let (group, name) = scheme_options_group () in
group#read scheme_rc_file;
match name#get with
None -> None
| Some name -> source_style_scheme_by_name ~manager name