14 lines
466 B
Text
14 lines
466 B
Text
# surround
|
|
|
|
define-command -hidden -params 1 xml-surround-add-impl %~
|
|
evaluate-commands -save-regs 'a' -no-hooks %^
|
|
set-register a %arg{1}
|
|
execute-keys -draft '_i<lt><c-r>a<gt><a-;>a<lt>/<c-r>a<gt>'
|
|
^
|
|
~
|
|
define-command -hidden -params 1 xml-surround-remove-impl %~
|
|
evaluate-commands -save-regs 'a"' -no-hooks %^
|
|
set-register a %arg{1}
|
|
execute-keys -save-regs '"' -draft '<a-/><lt><c-r>a<gt><ret>d/<lt>/<c-r>a<gt>d'
|
|
^
|
|
~
|