let store_style_scheme_selection sss =
  let (group, name) = scheme_options_group () in
  name#set (match sss with None -> None | Some sss -> Some sss#name);
  group#write scheme_rc_file