@@ -72,10 +72,11 @@
          html-section
          html-subsection
          html-newthought
          html-smallcaps
          html-center
+         html-block
          html-blockcode
          html-verse
          html-link
          html-url
          html-fn
@@ -87,10 +88,13 @@
 (define html-subsection (default-tag-function 'h3))
 (define html-newthought (default-tag-function 'span #:class "newthought"))
 (define html-smallcaps (default-tag-function 'span #:class "smallcaps"))
 (define html-center (default-tag-function 'div #:style "text-align: center"))
 
+(define (html-block . elements)
+  `(section [[class "content-block"]] (div [[class "content-block-main"]] ,@elements)))
+
 (define (html-root . elements)
   (define first-pass
     (decode-elements elements
                      #:txexpr-elements-proc decode-hardwrapped-paragraphs
                      #:exclude-tags '(script style figure table pre)))