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