From 635951e325935f39ba25be3b3099d6e60ef3e5c3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tadeusz=20=E2=80=9Ctadzik=E2=80=9D=20So=C5=9Bnierz?= Date: Fri, 13 Jan 2017 14:58:00 +0100 Subject: [PATCH 1/3] Treat .pm files as Perl code --- rc/base/perl.kak | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rc/base/perl.kak b/rc/base/perl.kak index 01f84b12..97c8c0fa 100644 --- a/rc/base/perl.kak +++ b/rc/base/perl.kak @@ -8,6 +8,10 @@ hook global BufCreate .*\.pl %{ set buffer filetype perl } +hook global BufCreate .*\.pm %{ + set buffer filetype perl +} + # Highlighters # ‾‾‾‾‾‾‾‾‾‾‾‾ From a7666efd4fcfe8bc05e85b1ae5df7b9be24b8f72 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tadeusz=20=E2=80=9Ctadzik=E2=80=9D=20So=C5=9Bnierz?= Date: Fri, 13 Jan 2017 14:58:19 +0100 Subject: [PATCH 2/3] Unhardcode variable declarartion highliting in Perl code, colour them as identifiers instead --- rc/base/perl.kak | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rc/base/perl.kak b/rc/base/perl.kak index 97c8c0fa..cba11bd2 100644 --- a/rc/base/perl.kak +++ b/rc/base/perl.kak @@ -69,7 +69,7 @@ add-highlighter -group /perl/code regex \b-(B|b|C|c|d|e|f|g|k|l|M|O|o|p|r|R|S|s| add-highlighter -group /perl/code regex %{(?:\b[stqrmwy]+)?/[^\n/]*/([msixpodualngecr]+\b)?} 0:magenta add-highlighter -group /perl/code regex %{(?:\b[stqrmwy]+)?/[^\n/]+/[^\n/]*/([msixpeodualngcr]+\b)?} 0:magenta -add-highlighter -group /perl/code regex \$[a-zA-Z_][a-zA-Z0-9_]* 0:blue +add-highlighter -group /perl/code regex \$[a-zA-Z_][a-zA-Z0-9_]* 0:identifier add-highlighter -group /perl/code regex \$(a|b|LAST_REGEXP_CODE_RESULT|LIST_SEPARATOR|MATCH|MULTILINE_MATCHING|NR|OFMT|OFS|ORS|OS_ERROR|OSNAME|OUTPUT_AUTO_FLUSH|OUTPUT_FIELD_SEPARATOR|OUTPUT_RECORD_SEPARATOR)\b 0:value add-highlighter -group /perl/code regex \$(LAST_REGEXP_CODE_RESULT|LIST_SEPARATOR|MATCH|MULTILINE_MATCHING|NR|OFMT|OFS|ORS|OS_ERROR|OSNAME|OUTPUT_AUTO_FLUSH|OUTPUT_FIELD_SEPARATOR|OUTPUT_RECORD_SEPARATOR|PERL_VERSION|ACCUMULATOR|PERLDB|ARG|PID|ARGV|POSTMATCH|PREMATCH|BASETIME|PROCESS_ID|CHILD_ERROR|PROGRAM_NAME|COMPILING|REAL_GROUP_ID|DEBUGGING|REAL_USER_ID|EFFECTIVE_GROUP_ID|RS|EFFECTIVE_USER_ID|SUBSCRIPT_SEPARATOR|EGID|SUBSEP|ERRNO|SYSTEM_FD_MAX|EUID|UID|EVAL_ERROR|WARNING|EXCEPTIONS_BEING_CAUGHT|EXECUTABLE_NAME|EXTENDED_OS_ERROR|FORMAT_FORMFEED|FORMAT_LINE_BREAK_CHARACTERS|FORMAT_LINES_LEFT|FORMAT_LINES_PER_PAGE|FORMAT_NAME|FORMAT_PAGE_NUMBER|FORMAT_TOP_NAME|GID|INPLACE_EDIT|INPUT_LINE_NUMBER|INPUT_RECORD_SEPARATOR|LAST_MATCH_END|LAST_PAREN_MATCH)\b 0:value From 1e6b05fc4c2c699151f7149bac77c3e9988694ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tadeusz=20=E2=80=9Ctadzik=E2=80=9D=20So=C5=9Bnierz?= Date: Fri, 13 Jan 2017 16:03:40 +0100 Subject: [PATCH 3/3] No need for two hooks for a single Perl highlighter. Thanks, casimir! --- rc/base/perl.kak | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/rc/base/perl.kak b/rc/base/perl.kak index cba11bd2..24e53657 100644 --- a/rc/base/perl.kak +++ b/rc/base/perl.kak @@ -4,11 +4,7 @@ # Detection # ‾‾‾‾‾‾‾‾‾ -hook global BufCreate .*\.pl %{ - set buffer filetype perl -} - -hook global BufCreate .*\.pm %{ +hook global BufCreate .*\.p[lm] %{ set buffer filetype perl }