@@ -110,13 +110,21 @@
                      #: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-title . elements)
+  (set-meta! 'title elements)
+  `(title ,@elements))
+
+(define (html-excerpt . elements)
+  (set-meta! 'excerpt elements)
+  "")
+
+(define (html-excerpt* . elements)
+  (set-meta! 'excerpt elements)
+  `(@ ,@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)]