xenia/home
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update deindenting in perl.kak

Browse Source
This commit is contained in:
John Isom 2020-07-29 08:56:19 -06:00
parent 1eb34996e1
commit fb838b9f33
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rc/filetype/perl.kak
View File

@ -118,7 +118,7 @@ define-command -hidden perl-indent-on-new-line %~
# indent after if|else|while|for # indent after if|else|while|for
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> ] 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> ]
# deindent closing brace(s) when after cursor # deindent closing brace(s) when after cursor
try %[ execute-keys -draft <a-x> <a-k>^\h*[})]+\h*(?://.*)?$<ret> \; <a-/> [})] <ret> m <a-S> 1<a-&> ] try %[ execute-keys -draft <a-x> <a-k>^\h*[})]+\h*(?:#.*)?$<ret> \; <a-/> [})] <ret> m <a-S> 1<a-&> ]
= =
~ ~