@@ -25,46 +25,47 @@
(require pollen/core
"dates.rkt")
(provide (all-defined-out))
-(define (ht-head [title #f])
+(define (html-head [title #f])
◊@{
The Local Yarn◊when/splice[title]{: ◊title}
})
-(define (ht-page-top)
+(define (html-page-top)
◊@{
The Local Yarn
})
-(define (ht-article-header)
+(define (html-article-header)
(define title (select-from-metas 'title (current-metas)))
(define published (select-from-metas 'published (current-metas)))
(cond
[title
- ◊@{
+ ◊string-append{
◊|title|
}]
[else
- ◊@{
+ ◊string-append{
}]))
-(define (ht-article-footer)
- ◊@{
+(define (html-article-footer)
+ ◊string-append{
})
-
-(define (ht-page-bottom)
+
+
+(define (html-page-bottom)
◊@{
})