rc perl.kak: highlight multiple regex modifiers

This commit is contained in:
Johannes Altmanninger 2020-10-19 19:08:09 +02:00
parent ba02c1d822
commit 1f4362d0ba

View File

@ -42,9 +42,9 @@ add-highlighter shared/perl/double_string region (?<!\$)(?<!\\)" (?<!\\)(\\\\
add-highlighter shared/perl/single_string region (?<!\$)(?<!\\\\)' (?<!\\)(\\\\)*' fill string
add-highlighter shared/perl/comment region (?<!\$)(?<!\\)# $ fill comment
add-highlighter shared/perl/regex region m?(?<!/)(?<!qr)/[^/\n]+(?=/) /\w? fill meta
add-highlighter shared/perl/sregex region s/[^/\n]+/[^/\n]+(?=/) /\w? fill meta
add-highlighter shared/perl/bregex region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) \} fill meta
add-highlighter shared/perl/regex region m?(?<!/)(?<!qr)/[^/\n]+(?=/) /\w* fill meta
add-highlighter shared/perl/sregex region s/[^/\n]+/[^/\n]+(?=/) /\w* fill meta
add-highlighter shared/perl/bregex region s\{[^\}\n]+\}\{[^\}\n]+(?=\}) \}\w* fill meta
add-highlighter shared/perl/quote_brace region -recurse \{ \bq[qrwx]?\{ \} fill string
add-highlighter shared/perl/quote_paren region -recurse \( \bq[qrwx]?\( \) fill string