Selecting and wrapping with xml tags in kakoune

xml.kak

def div -params 0..1 -docstring %{Wraps selected text with a tag and indents it.

The parameter can be omitted and then defaults to div.} %{
    eval -itersel %{
        exec <a-:><a-x>H Zo< / %sh{[ -n "$1" ] && echo "$1" || echo "div"} ><esc><a-x>yz<A-P>s/<ret>dz>
    }
}

def select-tag -docstring %{Selects xml tag from start to end.

Assumptions:

- Start tag begins on an own line
- Closing tag has the same indentation as start tag or tag is self-closing} %{
    eval -itersel %{
        try %{
            exec <a-/> ^(\h*) <([\w.]+) <ret> ?<c-r>1 < / <c-r>2 ><ret>
        } catch %{
            exec ? /> <ret>
        }
    }
}
alias global st select-tag