let read_lang_style (lang : GSourceView.source_language) =
  let file = file_of_lang lang#get_name in
  try
    let (_,tag_styles) = xml_read_lang_style ~file in
    List.iter (apply_tag_style_to_lang lang) tag_styles
  with
    Xml.File_not_found _ ->
      store_lang_style lang