From a2c76e586e80745408387c84a34b51dfb2169a5e Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Apr 2013 03:36:19 +0200 Subject: [PATCH] Reverse tag page posts order So the newest post comes out on top. --- tekuti/page.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tekuti/page.scm b/tekuti/page.scm index 1794645..46bad0b 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -286,7 +286,7 @@ (respond `(,(tag-sidebar tag index) (h2 "posts tagged \"" ,tag "\"") ,@(map (lambda (post) (show-post post #f)) - (take-max posts 10))) + (take-max (reverse posts) 10))) #:etag (assq-ref index 'master) #:title (string-append "posts tagged \"" tag "\"")) (respond `((h2 "Unknown tag " ,tag)