scribble examples in <details> html element

examples-details.scrbl

#lang scribble/manual
 
@(require scribble/core
          scribble/html-properties
          racket
          scribble/example)

@(define the-eval (make-base-eval))
@examples[#:eval the-eval #:hidden
          (require racket/string)]


@(define (details #:label [label "Details"] . blocks)
   (nested-flow
    (style #f
           (list (alt-tag "details")
                 (attributes '())))
    (cons
     (paragraph
      plain
      (elem label #:style (style #f (list (alt-tag "summary") (attributes '())))))
     blocks)))

@(details
  #:label "Examples"
  @examples[#:eval the-eval
            #:label #f
            (string-upcase "hello")])