z_mirror/kak-mirror
git clone https://git.raiguard.me/z_mirror/kak-mirror
3fba3b8
trunk
1declare-user-mode mirror 2 3# grow/shrink 4map global mirror c 'C<a-;><a-C><a-;>' -docstring column 5map global mirror h 'H<a-;>L<a-;>' -docstring character 6map global mirror l 'L<a-;>H<a-;>' -docstring character 7map global mirror j 'J<a-;>K<a-;>' -docstring line 8map global mirror k 'K<a-;>J<a-;>' -docstring line 9map global mirror J 'J<a-;>K<a-;><a-x>' -docstring 'full line' 10map global mirror K 'K<a-;>J<a-;><a-x>' -docstring 'full line' 11map global mirror b 'B<a-;>W<a-;>' -docstring 'word begin' 12map global mirror w 'W<a-;>B<a-;>' -docstring 'word begin' 13map global mirror e 'E<a-;>B<a-;>' -docstring 'word end' 14map global mirror p '}p<a-;>{p<a-;>' -docstring paragraph 15map global mirror s '}s<a-;>{s<a-;>' -docstring sentence 16map global mirror m 'M<a-;><a-M><a-;>' -docstring matching 17 18# insert/delete 19map global mirror ( '\a)<esc>\i(<esc>H<a-;>' -docstring '(surround)' 20map global mirror { '\a}<esc>\i{<esc>H<a-;>' -docstring '{surround}' 21map global mirror [ '\a]<esc>\i[<esc>H<a-;>' -docstring '[surround]' 22map global mirror < '\a<gt><esc>\i<lt><esc>H<a-;>' -docstring '<surround>' 23map global mirror « '\a»<esc>\i«<esc>H<a-;>' -docstring '«surround»' 24map global mirror ) '\a )<esc>\i( <esc>2H<a-;>' -docstring '( surround )' 25map global mirror } '\a }<esc>\i{ <esc>2H<a-;>' -docstring '{ surround }' 26map global mirror ] '\a ]<esc>\i[ <esc>2H<a-;>' -docstring '[ surround ]' 27map global mirror > '\a <gt><esc>\i<lt> <esc>2H<a-;>' -docstring '< surround >' 28map global mirror » '\a »<esc>\i« <esc>2H<a-;>' -docstring '« surround »' 29map global mirror '"' '\a"<esc>\i"<esc>H<a-;>' -docstring '"surround"' 30map global mirror "'" "\a'<esc>\i'<esc>H<a-;>" -docstring "'surround'" 31map global mirror '`' '\a`<esc>\i`<esc>H<a-;>' -docstring '`surround`' 32map global mirror d ': mirror-delete<ret>' -docstring 'delete' 33define-command -hidden mirror-delete %{ execute-keys Z<a-S><a-d>z<a-:>H } 34 35# fallthrough 36map global mirror '<a-;>' '<a-;>' -docstring 'swap anchor and cursor' 37map global mirror '<a-S>' '<a-S>' -docstring 'select sels boundaries' 38 39# Suggested mapping 40 41#map global normal "'" ': enter-user-mode -lock mirror<ret>' -docstring 'mirror lock'