(string-append (or prefix "") "/"
(site-post-slug site post) ".html"))
- `((h3 ,title)
- (ul
- ,@(map (lambda (post)
- `(li
- ,(aa (post-ref post 'title) (post-uri post))
- " — "
- ,(date->string (post-date post) my-date-format)))
- posts))))
+ `((h2 ,title)
+ (table
+ (@ (class "post-list"))
+ (tbody
+ ,@(map (lambda (post)
+ `(tr
+ (td ,(aa (post-ref post 'title) (post-uri post)))
+ (td (@ (style "font-size: 0.875em;"))
+ ,(date->string (post-date post) my-date-format))))
+ posts)))))
(define bandali-theme
(theme #:name "bandali"