- (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)))))))