subroutineuses_sectionprivate

subroutine uses_section(site, id, b)
    type(site_t), intent(in) :: site        !! the site
    integer, intent(in) :: id               !! the unit
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: k

    associate (e => site%p%list%box(id)%e)
        if (.not. allocated(e%more%uses)) return
        if (size(e%more%uses) == 0) return
        call add(b, '<h2 id="uses">Uses</h2>'//achar(10)//'<ul class="chips">')
        do k = 1, size(e%more%uses)
            call add(b, '<li>')
            call link_to(site, e%more%uses(k)%target, e%more%uses(k)%module, b)
            call add(b, '</li>')
        end do
        call add(b, '</ul>'//achar(10))
    end associate
end subroutine uses_section