+(define* (post-uri site post #:optional prefix)
+ (string-append (or prefix "") "/"
+ (site-post-slug site post) ".html"))
+
+(define* (post-list-table site posts #:optional prefix)
+ `((table
+ (@ (class "post-list"))
+ (tbody
+ ,@(map
+ (lambda (post)
+ `(tr
+ (td ,(aa (post-ref post 'title)
+ (post-uri site post prefix)))
+ (td (small ,(date->string (post-date post)
+ my-date-format)))))
+ posts)))))
+