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