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