@@ -39,13 +39,12 @@
html$-note-listing-full
html$-note-in-article
html$-notes-section)
(define (html$-page-head [title #f])
- (define title-part (if title (format ": ~a" title) ""))
◊string-append{
- ◊|title|
+ ◊if[title title ""]
})
@@ -54,14 +53,14 @@
The Local Yarn
})
-(define (html$-article-open title-html-flow published)
+(define (html$-article-open title? title-html-flow published)
(define published (select-from-metas 'published (current-metas)))
(cond
- [title-html-flow
+ [title?
◊string-append{
◊|title-html-flow|