Replace type.definition with keyword.type

The former is meant for the actual identifier, not the keywords around
it.
This commit is contained in:
Emmanuel Briot 2022-12-15 09:35:25 +01:00
parent 7426f191a1
commit 0210164cce

View File

@ -44,7 +44,7 @@
"range" "range"
"synchronized" "synchronized"
"tagged" "tagged"
] @StorageClass ] @storageclass
[ [
"mod" "mod"
"new" "new"
@ -52,7 +52,7 @@
"record" "record"
"subtype" "subtype"
"type" "type"
] @type.definition ] @keyword.type
[ [
"with" "with"
"use" "use"
@ -133,23 +133,23 @@
(subprogram_declaration "is" @keyword.function "abstract" @keyword.function) (subprogram_declaration "is" @keyword.function "abstract" @keyword.function)
(aspect_specification "with" @keyword.function) (aspect_specification "with" @keyword.function)
(full_type_declaration "is" @type.definition) (full_type_declaration "is" @keyword.type)
(subtype_declaration "is" @type.definition) (subtype_declaration "is" @keyword.type)
(record_definition "end" @type.definition) (record_definition "end" @keyword.type)
(full_type_declaration (_ "access" @type.definition)) (full_type_declaration (_ "access" @keyword.type))
(array_type_definition "array" @type.definition "of" @type.definition) (array_type_definition "array" @keyword.type "of" @keyword.type)
(access_to_object_definition "access" @type.definition) (access_to_object_definition "access" @keyword.type)
(access_to_object_definition "access" @type.definition (access_to_object_definition "access" @keyword.type
[ [
(general_access_modifier "constant" @type.definition) (general_access_modifier "constant" @keyword.type)
(general_access_modifier "all" @type.definition) (general_access_modifier "all" @keyword.type)
] ]
) )
(range_constraint "range" @type.definition) (range_constraint "range" @keyword.type)
(signed_integer_type_definition "range" @type.definition) (signed_integer_type_definition "range" @keyword.type)
(index_subtype_definition "range" @type.definition) (index_subtype_definition "range" @keyword.type)
(private_type_declaration "is" @type.definition "private" @type.definition) (private_type_declaration "is" @keyword.type "private" @keyword.type)
(task_type_declaration "task" @type.definition "is" @type.definition) (task_type_declaration "task" @keyword.type "is" @keyword.type)
;; Gray the body of expression functions ;; Gray the body of expression functions
(expression_function_declaration (expression_function_declaration