[nongnu] elpa/raku-mode e3bcb55be3 077/253: Highlight adverbs (:foo)

[ELPA Syncer]

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

    Highlight adverbs (:foo)
---
 perl6-font-lock.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index ab50e3c44f..f6a1d163ba 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -10,6 +10,10 @@
   "Face for identifiers in Perl 6."
   :group 'perl6-faces)
 
+(defface perl6-package-colons '((t :inherit default))
+  "Face for double colons in Perl 6 package names."
+  :group 'perl6-faces)
+
 (defface perl6-number '((t :inherit font-lock-constant-face))
   "Face for number literals in Perl 6."
   :group 'perl6-faces)
@@ -481,6 +485,12 @@ GROUPS is allowed to reference optional match groups."
     (,(perl6-rx (group symbol-start high-type) "(") 1 'perl6-type)
     (,(perl6-rx (group symbol-start identifier) "(") 1 'perl6-identifier)
     (,(perl6-rx (symbol (or low-type high-type))) 0 'perl6-type)
+    (,(rx (or (and "::" symbol-start)
+              (and symbol-end "::")))
+     0 'perl6-package-colons)
+    (,(perl6-rx (group ":") (group (symbol identifier)))
+     (1 'perl6-operator)
+     (2 'perl6-string))
     (,(perl6-rx (symbol operator-word)) 0 'perl6-operator)
     (,(perl6-rx (symbol phaser)) 0 'perl6-phaser)
     (,(perl6-rx (symbol exception)) 0 'perl6-exception)