[nongnu] elpa/raku-mode 7dfe01182d 080/253: Highlight reduce operators

[ELPA Syncer]

branch: elpa/raku-mode
commit 7dfe01182da24d78b67a54d9eacdd8baee88eef4
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    Highlight reduce operators
---
 perl6-font-lock.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index ee0116c75d..7b801951c3 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -169,6 +169,18 @@
                     symbol-end)
                (any ".,")
                (1+ (regex "[^:\[.,[:space:][:alnum:]]")))))
+      (reduce-operator
+       . ,(rx (0+ (any "RSXZ\["))
+              (opt (any "RSXZ&"))
+              (1+ "\[")
+              (opt "\(")
+              (or (and (regex "[^[:digit:]@%$]")
+                       (0+ (regex "[^\[\{\('\"[:space:]]")))
+                  (and (any "@%$")
+                       (regex "[^.?^=[:alpha:]]")
+                       (0+ (regex "[^\[\{\('\"[:space:]]"))))
+              (opt "\)")
+              (1+ "\]")))
       (low-type
        . ,(rx (or "int" "int1" "int2" "int4" "int8" "int16" "int32" "int64"
                   "rat" "rat1" "rat2" "rat4" "rat8" "rat16" "rat32" "rat64"
@@ -448,6 +460,7 @@ GROUPS is allowed to reference optional match groups."
 (defconst perl6-font-lock-keywords
   `(
     (perl6-match-metaoperator 0 'perl6-operator)
+    (,(perl6-rx reduce-operator) 0 'perl6-operator)
     (,(perl6-rx (group (any "@$%&"))
                 (or
                  "<"