- `(article
- (header
- (h2
- (a (@ (href ,(post-uri post)))
- ,(post-ref post 'title)))
- (p "Posted on " ,(date->string (post-date post) "~B ~d, ~Y")))
- (div ,(post-summary post)
- (br)
- (a (@ (class "btn") (href ,(post-uri post))) " Continue reading "))
- (hr)))
+ `(article (@ (class "inline"))
+ (header
+ (h2 (@ (class "title"))
+ (a (@ (href ,(post-uri post)))
+ ,(post-ref post 'title)))
+ (div (@ (class "date-and-tags"))
+ (time (@ (datetime ,(date->string (post-date post) "~Y-~m-~dT~H:~M:~S")))
+ ,(date->string (post-date post) "~Y-~m-~d"))
+ " "
+ ,(let ((tags (get-tags post)))
+ (cond ((= (length tags) 0)
+ `(span (@ (style "margin: 0 3px")) ⦿)
+ `(span (@ (class "tags"))
+ ,@(map (lambda (tag)
+ `((a (@ (href (format #f "tags/~a.html" ,tag))) ,tag) " "))
+ tags)))))))
+ ,(post-summary post)
+ (footer (@ (class "read-more"))
+ (a (@ (href ,(post-uri post))) "...more..."))))