X-Git-Url: https://git.shemshak.org/~bandali/bndl.org/blobdiff_plain/7a1f56a97e50f5f95e3c4b655c739fb0def44ace..f9e7c27738608755d80d450252f1ca079551d02e:/haunt.scm?ds=sidebyside diff --git a/haunt.scm b/haunt.scm index 51f3e02..f1fe078 100644 --- a/haunt.scm +++ b/haunt.scm @@ -211,16 +211,16 @@ (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