let ocaml_syntax_mode_installed () =
  let lm = Ed_sourceview.languages_manager in
  let l = lm#get_available_languages in
  List.exists (fun l -> String.lowercase l#get_name = "objective caml") l