let source_language_by_name ?(manager=source_language_manager) name = let langs = available_source_languages ~manager () in try Some (List.find (fun s -> s#name = name) langs) with _ -> None