@@ -48,12 +48,13 @@ }) -(define (html$-page-body-open) - ◊string-append{
+(define (html$-page-body-open [class ""]) + (define body-class (if (non-empty-string? class) (format " class=\"~a\"" class) "")) + ◊string-append{

The Local Yarn

})