let store_lang_style (lang : GSourceView.source_language) =
  let file = file_of_lang lang#get_name in
  let f_tag t =
    (t#id, tag_style_of_lang (lang#get_tag_style t#id))
  in
  let tag_styles = List.map f_tag lang#get_tags in
  xml_store_lang_style ~file ~lang: lang#get_name tag_styles