@@ -26,18 +26,18 @@
html$-note-listing-full
html$-note-in-article
html$-notes-section
html$-paginate-navlinks)
-(define (html$-page-head [title #f])
+(define (html$-page-head [title #f] [close-head? #t])
◊string-append{
◊if[title title ""]
- })
+ ◊if[close-head? "" ""]})
(define (html$-page-body-open [class ""])
(define body-class (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
◊string-append{