@@ -51,10 +51,13 @@
                                   sup
                                   blockquote
                                   code)
 
 (provide html-root
+         html-title
+         html-excerpt
+         html-excerpt*
          html-item
          html-section
          html-subsection
          html-newthought
          html-caps
@@ -99,10 +102,14 @@
                      #:block-txexpr-proc detect-newthoughts
                      #:inline-txexpr-proc decode-link-urls
                      #:exclude-tags '(script style pre code)))
   `(body ,@second-pass))
 
+(define (html-title . elements) `(title ,@elements))
+(define (html-excerpt . elements) `(excerpt ,@elements))
+(define (html-excerpt* . elements) `(excerpt* ,@elements))
+
 (define (html-blockcode attrs elems)
   (define file (or (assoc 'filename attrs) ""))
   (define codeblock `(pre [[class "code"]] (code ,@elems)))
   (cond [(string>? file "") `(@ (div [[class "listing-filename"]] 128196 " " ,file) ,codeblock)]
         [else codeblock]))