(haunt reader texinfo)
(haunt site)
(haunt post)
- (srfi srfi-1))
+ (srfi srfi-1)
+ (srfi srfi-19))
(define (stylesheet name)
`(link (@ (rel "stylesheet")
`((article (@ (class "single"))
(header
(h1 ,(post-ref post 'title))
- (p ,(date->string* (post-date post))))
+ (p "Posted on " ,(date->string (post-date post) "~B ~d, ~Y")))
,(post-sxml post)
(div (@ (class "tag-cloud"))
(p
(h2
(a (@ (href ,(post-uri post)))
,(post-ref post 'title)))
- (p ,(date->string* (post-date post))))
+ (p "Posted on " ,(date->string (post-date post) "~B ~d, ~Y")))
(div ,(post-summary post)
(br)
- (a (@ (class "btn") (href ,(post-uri post))) " Seguir leyendo "))
+ (a (@ (class "btn") (href ,(post-uri post))) " Continue reading "))
(hr)))
(posts/reverse-chronological posts))))))