external mime_types: [>`sourcelanguage] obj -> string list =
    "ml_gtk_source_language_get_mime_types"