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