2015-10-11 23:29:03 +03:00
# https://www.perl.org/
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
# Detection
# ‾‾‾‾‾‾‾‾‾
2018-11-27 16:43:50 +03:00
hook global BufCreate .*\.(t|p[lm])$ %{
2017-11-03 10:34:41 +03:00
set-option buffer filetype perl
2017-01-13 16:58:00 +03:00
}
2019-04-10 06:54:19 +03:00
# Initialization
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾
hook global WinSetOption filetype=perl %{
2019-03-13 08:24:33 +03:00
require-module perl
2019-04-10 06:54:19 +03:00
set-option window static_words %opt{perl_static_words}
# cleanup trailing whitespaces when exiting insert mode
2019-10-16 12:19:43 +03:00
hook window ModeChange pop:insert:.* -group perl-trim-indent %{ try %{ execute-keys -draft <a-x>s^\h+$<ret>d } }
2019-04-10 06:54:19 +03:00
hook window InsertChar \n -group perl-indent perl-indent-on-new-line
hook window InsertChar \{ -group perl-indent perl-indent-on-opening-curly-brace
hook window InsertChar \} -group perl-indent perl-indent-on-closing-curly-brace
hook -once -always window WinSetOption filetype=.* %{ remove-hooks window perl-.+ }
}
hook -group perl-highlight global WinSetOption filetype=perl %{
add-highlighter window/perl ref perl
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/perl }
2019-03-13 08:24:33 +03:00
}
2019-04-13 22:57:57 +03:00
provide-module perl %§
2019-03-13 08:24:33 +03:00
2015-10-11 23:29:03 +03:00
# Highlighters
# ‾‾‾‾‾‾‾‾‾‾‾‾
2018-07-01 12:53:35 +03:00
add-highlighter shared/perl regions
add-highlighter shared/perl/code default-region group
2018-08-09 12:27:40 +03:00
add-highlighter shared/perl/command region (?<!\$)(?<!\\)` (?<!\\)(\\\\)*` fill meta
2018-07-02 13:59:12 +03:00
add-highlighter shared/perl/double_string region (?<!\$)(?<!\\)" (?<!\\)(\\\\)*" fill string
add-highlighter shared/perl/single_string region (?<!\$)(?<!\\\\)' (?<!\\)(\\\\)*' fill string
add-highlighter shared/perl/comment region (?<!\$)(?<!\\)# $ fill comment
2015-10-11 23:29:03 +03:00
2020-05-05 19:22:30 +03:00
add-highlighter shared/perl/regex region m?(?<!/)/[^/\n]+(?=/) /\w? fill meta
2019-11-26 13:31:39 +03:00
add-highlighter shared/perl/sregex region s/[^/\n]+/[^/\n]+(?=/) /\w? fill meta
add-highlighter shared/perl/q1 region -recurse \{ q\{ \} fill string
add-highlighter shared/perl/q2 region -recurse \( q\( \) fill string
add-highlighter shared/perl/q3 region -recurse \[ q\[ \] fill string
add-highlighter shared/perl/qq1 region -recurse \{ qq\{ \} fill string
add-highlighter shared/perl/qq2 region -recurse \( qq\( \) fill string
add-highlighter shared/perl/qq3 region -recurse \[ qq\[ \] fill string
2018-05-07 00:29:52 +03:00
evaluate-commands %sh{
2016-03-14 15:08:51 +03:00
# Grammar
2019-04-10 06:54:19 +03:00
keywords="else lock qw elsif lt qx eq exp ne sub for no my not tr goto and foreach or break exit unless cmp ge package until continue gt while if qq xor do le qr return"
attributes="END AUTOLOAD BEGIN CHECK UNITCHECK INIT DESTROY
length setpgrp endgrent link setpriority endhostent listen setprotoent endnetent local setpwent
endprotoent localtime setservent endpwent log setsockopt endservent lstat shift eof map shmctl eval mkdir shmget exec msgctl shmread
exists msgget shmwrite msgrcv shutdown fcntl msgsnd sin fileno sleep flock next socket fork socketpair format oct sort
formline open splice getc opendir split getgrent ord sprintf getgrgid our sqrt getgrnam pack srand gethostbyaddr pipe stat gethostbyname
pop state gethostent pos study getlogin print substr getnetbyaddr printf symlink abs getnetbyname prototype syscall accept getnetent
push sysopen alarm getpeername quotemeta sysread atan2 getpgrp rand sysseek getppid read system getpriority readdir syswrite bind
getprotobyname readline tell binmode getprotobynumber readlink telldir bless getprotoent readpipe tie getpwent recv tied caller
getpwnam redo time chdir getpwuid ref times getservbyname rename truncate chmod getservbyport require uc chomp getservent reset ucfirst
chop getsockname umask chown getsockopt reverse undef chr glob rewinddir chroot gmtime rindex unlink close rmdir unpack
closedir grep say unshift connect hex scalar untie cos index seek use crypt seekdir utime dbmclose int select values dbmopen ioctl semctl
vec defined join semget wait delete keys semop waitpid kill send wantarray die last setgrent warn dump lc sethostent write each lcfirst setnetent"
values="ARGV STDERR STDOUT ARGVOUT STDIN __DATA__ __END__ __FILE__ __LINE__ __PACKAGE__"
join() { sep=$2; eval set -- $1; IFS="$sep"; echo "$*"; }
2016-03-14 15:08:51 +03:00
# Add the language's grammar to the static completion list
2019-04-10 06:54:19 +03:00
printf %s\\n "declare-option str-list perl_static_words $(join "${keywords} ${attributes} ${values}" ' ')"
2016-03-14 15:08:51 +03:00
# Highlight keywords
2016-03-17 16:30:14 +03:00
printf %s "
2019-04-10 06:54:19 +03:00
add-highlighter shared/perl/code/ regex \b($(join "${keywords}" '|'))\b 0:keyword
add-highlighter shared/perl/code/ regex \b($(join "${attributes}" '|'))\b 0:attribute
add-highlighter shared/perl/code/ regex \b($(join "${values}" '|'))\b 0:value
2016-03-14 15:08:51 +03:00
"
}
2018-07-01 12:53:35 +03:00
add-highlighter shared/perl/code/ regex (?!\$)-?([0-9]*\.(?!0[xXbB]))?\b([0-9]+|0[xX][0-9a-fA-F]+|0[bb][01_]+)\.?([eE][+-]?[0-9]+)?i?\b 0:value
add-highlighter shared/perl/code/ regex %{\$!|\$"|\$#|\$\$|\$%|\$&|\$'|\$\(|\$\)|\$\*|\$\+|\$,|\$_|\$-|\$`|\$\.|\$/|\$:|\$;|\$<|\$=|\$>|\$\?|\$@|\$\[|\$\\|\$\]|\$\^|\$\||\$~|%!|@\+|@-|@_} 0:value
add-highlighter shared/perl/code/ regex (%ENV|%INC|%OVERLOAD|%SIG|@ARGV|@INC|@LAST_MATCH_START) 0:value
add-highlighter shared/perl/code/ regex %{%\^(H)\b} 0:value
add-highlighter shared/perl/code/ regex \$\^(S|T|V|W|X|A|C|D|E|F|H|I|L|M|N|O|P|R)\b 0:value
add-highlighter shared/perl/code/ regex \$\^(RE_TRIE_MAXBUF|TAINT|UNICODE|UTF8LOCALE|WARNING_BITS|WIDE_SYSTEM_CALLS|CHILD_ERROR_NATIVE|ENCODING|OPEN|RE_DEBUG_FLAGS)\b 0:value
2015-10-11 23:29:03 +03:00
2018-07-01 12:53:35 +03:00
add-highlighter shared/perl/code/ regex \$[0-9]+ 0:attribute
add-highlighter shared/perl/code/ regex \b-(B|b|C|c|d|e|f|g|k|l|M|O|o|p|r|R|S|s|T|t|u|w|W|X|x|z)\b 0:attribute
2015-10-11 23:29:03 +03:00
2018-07-01 12:53:35 +03:00
add-highlighter shared/perl/code/ regex \$[a-zA-Z_][a-zA-Z0-9_]* 0:variable
2015-10-11 23:29:03 +03:00
2018-07-01 12:53:35 +03:00
add-highlighter shared/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 shared/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
2015-10-11 23:29:03 +03:00
# Commands
# ‾‾‾‾‾‾‾‾
2017-11-03 10:34:41 +03:00
define-command -hidden perl-indent-on-new-line %~
2017-11-03 11:09:45 +03:00
evaluate-commands -draft -itersel %=
2015-10-11 23:29:03 +03:00
# preserve previous line indent
2019-10-22 12:02:06 +03:00
try %{ execute-keys -draft <semicolon>K<a-&> }
2015-10-11 23:29:03 +03:00
# indent after lines ending with { or (
2017-11-03 11:09:45 +03:00
try %[ execute-keys -draft k<a-x> <a-k> [{(]\h*$ <ret> j<a-gt> ]
2015-10-11 23:29:03 +03:00
# cleanup trailing white spaces on the previous line
2017-11-03 11:09:45 +03:00
try %{ execute-keys -draft k<a-x> s \h+$ <ret>d }
2015-10-11 23:29:03 +03:00
# align to opening paren of previous line
2017-11-03 11:09:45 +03:00
try %{ execute-keys -draft [( <a-k> \A\([^\n]+\n[^\n]*\n?\z <ret> s \A\(\h*.|.\z <ret> '<a-;>' & }
2020-07-29 05:52:06 +03:00
# copy # comments prefix
try %{ execute-keys -draft <semicolon><c-s>k<a-x> s ^\h*\K# <ret> y<c-o>P<esc> }
2015-10-11 23:29:03 +03:00
# indent after a switch's case/default statements
2017-11-03 11:09:45 +03:00
try %[ execute-keys -draft k<a-x> <a-k> ^\h*(case|default).*:$ <ret> j<a-gt> ]
2015-10-11 23:29:03 +03:00
# indent after if|else|while|for
2019-10-22 12:02:06 +03:00
try %[ execute-keys -draft <semicolon><a-F>)MB <a-k> \A(if|else|while|for)\h*\(.*\)\h*\n\h*\n?\z <ret> s \A|.\z <ret> 1<a-&>1<a-space><a-gt> ]
2020-07-28 21:55:21 +03:00
# deindent closing brace(s) when after cursor
2020-07-29 17:55:19 +03:00
try %[ execute-keys -draft <a-x> <a-k>^\h*[})]+\h*(?://.*)?$<ret> \; <a-/> [})] <ret> m <a-S> 1<a-&> ]
2015-10-11 23:29:03 +03:00
=
~
2017-11-03 10:34:41 +03:00
define-command -hidden perl-indent-on-opening-curly-brace %[
2015-10-11 23:29:03 +03:00
# align indent with opening paren when { is entered on a new line after the closing paren
2018-03-25 03:45:27 +03:00
try %[ execute-keys -draft -itersel h<a-F>)M <a-k> \A\(.*\)\h*\n\h*\{) <ret> s \A|.\z <ret> 1<a-&> ]
2015-10-11 23:29:03 +03:00
]
2017-11-03 10:34:41 +03:00
define-command -hidden perl-indent-on-closing-curly-brace %[
2015-10-11 23:29:03 +03:00
# align to opening curly brace when alone on a line
2017-11-03 11:09:45 +03:00
try %[ execute-keys -itersel -draft <a-h><a-k>^\h+\}$<ret>hms\A|.\z<ret>1<a-&> ]
2015-10-11 23:29:03 +03:00
]
2019-04-13 22:57:57 +03:00
§