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