external style_name: [>`sourcelanguage] obj -> string -> string option = "ml_gtk_source_language_get_style_name"