@@ -15,10 +15,11 @@ racket/base racket/contract racket/string pollen/template pollen/pagetree + txexpr sugar/coerce)) @title{@filepath{snippets-html.rkt}} @defmodule["snippets-html.rkt" #:packages ()] @@ -55,17 +56,23 @@ @defproc[(html$-page-head [title (or/c string? #f) #f]) non-empty-string?] Returns the @tt{} section of an HTML document. -@defproc[(html$-page-body-open) non-empty-string?] +@defproc[(html$-page-body-open [body-class string? ""]) non-empty-string?] Returns the opening @tt{} and @tt{

} tags and elements that immediately follow, such as site header, logo and navigation. -@defproc[(html$-article-open [title-specified-in-doc? boolean?] [title txexpr?] [pubdate string?]) -non-empty-string?] +If @racket[_body-class] is a non-empty string, its contents will be included in the @tt{class} +attribute of the @tt{} tag. + +@defproc[(html$-article-open [pagenode pagenode?] + [title-specified-in-doc? boolean?] + [title txexpr?] + [pubdate string?]) + non-empty-string?] Returns the opening @tt{

} tag and elements that immediately follow: permlink, publish date, and opening @tt{

} tag. The @racket[_title-specified-in-doc?] form changes the HTML markup structure used. @@ -73,10 +80,16 @@ @defproc[(html$-article-close [footertext string?]) non-empty-string?] Returns a string containing a closing @tt{

} tag, a @tt{