(table
(@ (class "post-list"))
(tbody
- ,@(map
- (lambda (post)
- (define (post-uri post)
- (string-append "/"
- (site-post-slug site post) ".html"))
- `(tr
- (td ,(aa (post-ref post 'title) (post-uri post)))
- (td (small
- ,(date->string (post-date post) my-date-format)))))
- (take-up-to 10 (posts/reverse-chronological posts)))))))
+ ,@(map
+ (lambda (post)
+ (define (post-uri post)
+ (string-append "/"
+ (site-post-slug site post) ".html"))
+ `(tr
+ (td ,(aa (post-ref post 'title) (post-uri post)))
+ (td (small
+ ,(date->string (post-date post) my-date-format)))))
+ (take-up-to 10 (posts/reverse-chronological posts)))))))
(define (index-page site posts)
(make-page