tree-always-highlight
set-option global tree_highlight_style ",rgb:404040"
declare-user-mode tree
map global normal 't' ":enter-user-mode tree<ret>"
map global normal 'T' ":enter-user-mode -lock tree<ret>"

map -docstring "select node"          global tree 'n'  ":tree-select-node<ret>"
map -docstring "select parent"        global tree 'k'  ":tree-select-parent-node<ret>"
# map -docstring "select children"      global tree 'c'  ":tree-select-children<ret>"
map -docstring "select children"      global tree 'C'  ":tree-select-children<ret>"
map -docstring "select children of type"      global tree 'c'  ":enter-user-mode tree-children<ret>"
map -docstring "select next node of type"      global tree 'l'  ":enter-user-mode tree-next<ret>"
map -docstring "select previous node of type"      global tree 'h'  ":enter-user-mode tree-prev<ret>"
map -docstring "show sexp"            global tree 's'  ":tree-node-sexp<ret>"
map -docstring "enable highlighting"  global tree '"'  ":tree-always-highlight<ret>"
map -docstring "disable highlighting" global tree '&'  ":tree-always-highlight-disable<ret>"

declare-user-mode tree-children
declare-user-mode tree-next
declare-user-mode tree-prev

evaluate-commands %sh{
echo "i,identifier
f,function
d,declaration
c,call
a,arguments
s,statement" |
while IFS=, read -r cmd group ; do
    echo "map -docstring '$group child' global tree-children '$cmd' ':tree-select-children $group<ret>'"
    echo "map -docstring 'next $group' global tree-next '$cmd' ':tree-select-next-node $group<ret>'"
    echo "map -docstring 'previous $group' global tree-prev '$cmd' ':tree-select-previous-node $group<ret>'"
done
}