Update deindenting in perl.kak
This commit is contained in:
parent
655c7aad60
commit
623743e794
|
@ -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-&> ]
|
||||||
=
|
=
|
||||||
~
|
~
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user