subroutineindent_levelprivate

subroutine indent_level(t, parent, block, level, node)
    type(tree_t), intent(in) :: t           !! the conversion
    integer, intent(in) :: parent           !! the node
    character(len=*), intent(in) :: block   !! the chunk
    integer, intent(out) :: level           !! the list depth
    integer, intent(out) :: node            !! the node at that depth
    integer :: indent, child

    indent = (verify(block//'x', ' ') - 1)/4
    level = merge(1, 0, in_state(t, 'list'))
    node = parent
    do while (indent > level)
        child = last_child(t, node)
        if (child == 0) exit
        if (is_list(t%nodes(child)%tag)) then
            level = level + 1
        else if (t%nodes(child)%tag /= 'li') then
            exit
        end if
        node = child
    end do
end subroutine indent_level