@@ -22,10 +22,11 @@
;; -------------------------------------------------------------------------
;; Provides functions for displaying content in HTML templates.
(require pollen/core
pollen/template
+ pollen/decode
racket/string
txexpr
openssl/sha1
"dust.rkt")
@@ -54,11 +55,10 @@
The Local Yarn
})
(define (html$-article-open title? title-html-flow published)
- (define published (select-from-metas 'published (current-metas)))
(cond
[title?
◊string-append{
◊|title-html-flow|
@@ -75,11 +75,11 @@
(define (html$-article-close footertext)
(cond [(non-empty-string? footertext)
◊string-append{
}]
- [else ""]))
+ [else ""]))
(define (html$-page-body-close)
◊string-append{