subroutineentity_anchor

subroutine entity_anchor(list, id, b)
    type(entity_list_t), intent(in) :: list !! the entities
    integer, intent(in) :: id               !! the entity
    type(buffer_t), intent(inout) :: b      !! the HTML
    character(len=:), allocatable :: word, name, quoted

    call object_word(list%box(id)%e, word)
    call page_name(list%box(id)%e%name, name)
    call url_quote(name, quoted)
    call add(b, word//'-')
    call html_escape(quoted, b, .true.)
end subroutine entity_anchor