Simplify the highlighted regions, fix the ones remaining
This commit is contained in:
parent
7581cde87a
commit
753e3d17de
11
rc/perl.kak
11
rc/perl.kak
|
@ -16,13 +16,10 @@ hook global BufCreate .*\.pl %{
|
||||||
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
# ‾‾‾‾‾‾‾‾‾‾‾‾
|
||||||
|
|
||||||
addhl -group / regions -default code perl \
|
addhl -group / regions -default code perl \
|
||||||
command '(?:[^\$]|^)`' '`' '' \
|
command '(?<!\$)`' (?<!\\)(\\\\)*` '' \
|
||||||
command '\<qx/' (?<!\\)(\\\\)*/ '' \
|
double_string '(?<!\$)"' (?<!\\)(\\\\)*" '' \
|
||||||
double_string '(?:[^\$]|^)"' (?<!\\)(\\\\)*" '' \
|
single_string "(?<!\$)'" (?<!\\)(\\\\)*' '' \
|
||||||
double_string '\<q(q|w)/' (?<!\\)(\\\\)*/ '' \
|
comment '(?<!\$)#' $ ''
|
||||||
single_string "(?:[^\$]|^)'" (?<!\\)(\\\\)*' '' \
|
|
||||||
single_string "\<q/" (?<!\\)(\\\\)*/ '' \
|
|
||||||
comment '(?:[^\$]|^)#' $ ''
|
|
||||||
|
|
||||||
addhl -group /perl/command fill magenta
|
addhl -group /perl/command fill magenta
|
||||||
addhl -group /perl/double_string fill string
|
addhl -group /perl/double_string fill string
|
||||||
|
|
Loading…
Reference in New Issue
Block a user