Add <<< >>> for q/qq/Q and multi-line comments

Author: samcv

dev/q-qq-Q-template.p6

@@ -6,6 +6,7 @@ my @open-close-delimiters =
 ('triple_paren',          Q<\\(\\(\\(>, Q<\\)\\)\\)>, 3,       False),
 ('triple_bracket',        Q<\\[\\[\\[>, Q<\\]\\]\\]>, 3,       False),
 ('triple_brace',          Q<\\{\\{\\{>, Q<\\}\\}\\}>, 3, False),
+('triple_angle',             '<<<',      '>>>',       3, False),
 ('double_angle',            '<<',        '>>',        2, False),
 ('double_paren',             Q<\\(\\(>,   Q<\\)\\)>,  2, False),
 ('double_bracket',           Q<\\[\\[>,   Q<\\]\\]>,  2, False),

grammars/perl6fe.cson

@@ -107,6 +107,19 @@
     }
   ]
   }
+  # multiline comment triple_angle
+  {
+  'begin': '\\s*#`<<<',
+  'end': '>>>',
+  'name': 'comment.multiline.hash-tick.triple_angle.perl6fe'
+  'patterns': [
+    {
+      'begin': '<<<'
+      'end': '>>>'
+      'name': 'comment.internal.triple_angle.perl6fe'
+    }
+  ]
+  }
   # multiline comment double_angle
   {
   'begin': '\\s*#`<<',

grammars/perl6fe.quoting.cson

@@ -244,6 +244,86 @@
       { 'include': '#q_triple_brace_string_content' }
     ]
   }
+  # Q_triple_angle
+  {
+    'begin': '(?x) (?<=^|[\\s\\(\\){},;])
+      (Q(?:x|w|ww|v|s|a|h|f|c|b|p)?)
+      ((?:
+        \\s*:(?:
+          x|exec|w|words|ww|quotewords|v|val|q|single|double|
+          s|scalar|a|array|h|hash|f|function|c|closure|b|blackslash|
+          regexp|substr|trans|codes|p|path
+        )
+      )*)
+      \\s*(<<<)'
+    'beginCaptures':
+      '1': 'name': 'string.quoted.q.operator.perl6fe'
+      '2': 'name': 'support.function.quote.adverb.perl6fe'
+      '3': 'name': 'punctuation.definition.string.perl6fe'
+    'end': '>>>'
+    'endCaptures':
+      '0': 'name': 'punctuation.definition.string.perl6fe'
+    'contentName': 'string.quoted.q.triple_angle.quote.perl6fe'
+    'patterns': [ { 'include': '#q_triple_angle_string_content' } ]
+  }
+  # q_triple_angle
+  {
+    'begin': '(?x) (?<=^|[\\s\\(\\){},;])
+      (q(?:x|w|ww|v|s|a|h|f|c|b|p)?)
+      ((?:
+        \\s*:(?:
+          x|exec|w|words|ww|quotewords|v|val|q|single|double|
+          s|scalar|a|array|h|hash|f|function|c|closure|b|blackslash|
+          regexp|substr|trans|codes|p|path
+        )
+      )*)
+      \\s*(<<<)'
+    'beginCaptures':
+      '1': 'name': 'string.quoted.q.operator.perl6fe'
+      '2': 'name': 'support.function.quote.adverb.perl6fe'
+      '3': 'name': 'punctuation.definition.string.perl6fe'
+    'end': '\\\\\\\\>>>|(?<!\\\\)>>>'
+    'endCaptures':
+      '0': 'name': 'punctuation.definition.string.perl6fe'
+    'contentName': 'string.quoted.q.triple_angle.quote.perl6fe'
+    'patterns': [
+      {
+        'match': '\\\\<<<|\\\\>>>'
+        'name': 'constant.character.escape.perl6fe'
+      }
+      { 'include': '#q_triple_angle_string_content' }
+    ]
+  }
+  # qq_triple_angle
+  {
+    'begin': '(?x) (?<=^|[\\s\\(\\){},;])
+      (qq(?:x|w|ww|v|s|a|h|f|c|b|p)?)
+      ((?:
+        \\s*:(?:
+          x|exec|w|words|ww|quotewords|v|val|q|single|double|
+          s|scalar|a|array|h|hash|f|function|c|closure|b|blackslash|
+          regexp|substr|trans|codes|p|path
+        )
+      )*)
+      \\s*(<<<)'
+    'beginCaptures':
+      '1': 'name': 'string.quoted.qq.operator.perl6fe'
+      '2': 'name': 'support.function.quote.adverb.perl6fe'
+      '3': 'name': 'punctuation.definition.string.perl6fe'
+    'end': '\\\\\\\\>>>|(?<!\\\\)>>>'
+    'endCaptures':
+      '0': 'name': 'punctuation.definition.string.perl6fe'
+    'contentName': 'string.quoted.qq.triple_angle.quote.perl6fe'
+    'patterns': [
+      {
+        'match': '\\\\<<<|\\\\>>>'
+        'name': 'constant.character.escape.perl6fe'
+      }
+      { 'include': '#qq_character_escape' }
+      { 'include': 'source.perl6fe#interpolation' }
+      { 'include': '#q_triple_angle_string_content' }
+    ]
+  }
   # Q_double_angle
   {
     'begin': '(?x) (?<=^|[\\s\\(\\){},;])
@@ -1580,6 +1660,11 @@
     'begin': '\\{\\{\\{'
     'end': '\\\\\\\\\\}\\}\\}|(?<!\\\\)\\}\\}\\}'
     'patterns': [ { 'include': '#q_triple_brace_string_content' } ]
+  # q_triple_angle
+  'q_triple_angle_string_content':
+    'begin': '<<<'
+    'end': '\\\\\\\\>>>|(?<!\\\\)>>>'
+    'patterns': [ { 'include': '#q_triple_angle_string_content' } ]
   # q_double_angle
   'q_double_angle_string_content':
     'begin': '<<'

styles/styles.less

@@ -1,3 +1,4 @@
+atom-text-editor.editor .syntax--markup--syntax,
 atom-text-editor.editor .syntax--entity.syntax--name.syntax--section,
 atom-text-editor.editor .syntax--comment,
 atom-text-editor.editor .syntax--string.syntax--quoted,