let source_style_scheme_by_name ?(manager=source_style_scheme_manager) name = let schemes = available_source_style_schemes ~manager () in try Some (List.find (fun s -> s#name = name) schemes) with _ -> None