subroutineenum_sectionsprivate

subroutine enum_sections(site, ids, b)
    type(site_t), intent(in) :: site        !! the site
    integer, intent(in) :: ids(:)           !! the enumerations
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: k

    if (size(ids) == 0) return
    call add(b, '<h2 id="enumerations">Enumerations</h2>'//achar(10))
    do k = 1, size(ids)
        call add(b, '<div class="item" id="')
        call anchor(site, ids(k), b)
        call add(b, '">'//achar(10))
        call argument_table(site, site%p%list%box(ids(k))%e%children, .true., b)
        call add(b, '</div>'//achar(10))
    end do
end subroutine enum_sections