Tag `TOP´ in grammars differently for docs.perl6.org

Raku · Dec 28, 2016 · e6c8c77 · e6c8c77
1 parent 4c3e788
commit e6c8c77
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/grammars/perl6fe.cson b/grammars/perl6fe.cson
@@ -689,14 +689,16 @@
   {
     'begin': '(?<![\\.:])(regex|rule|token)(?!\\s*=>|\\S)'
     'beginCaptures':
-      '1':
-        'name': 'storage.type.declare.regexp.named.perl6fe'
+      '1': 'name': 'storage.type.declare.regexp.named.perl6fe'
     'end': '(?<!\\\\)\\}'
     'endCaptures':
-      '0':
-        'name': 'punctuation.definition.regexp.named.perl6fe'
+      '0': 'name': 'punctuation.definition.regexp.named.perl6fe'
     'name': 'meta.regexp.named.perl6fe'
     'patterns': [
+      {
+        'match': 'TOP'
+        'name' : 'entity.name.function.regexp.named.TOP.perl6fe'
+      }
       {
         'match': '[\\p{Digit}\\p{Alpha}\'\\-_]+'
         'name': 'entity.name.function.regexp.named.perl6fe'