# 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'
    ^
~