aliens/tekuti
1
0
Fork 0
Code Activity

Reverse tag page posts order

Browse source 
So the newest post comes out on top.
This commit is contained in:
Tom Willemsen 2013-04-03 03:36:19 +02:00
parent ea8c3a5642
commit a2c76e586e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tekuti/page.scm
View file

@ -286,7 +286,7 @@
(respond `(,(tag-sidebar tag index) (respond `(,(tag-sidebar tag index)
(h2 "posts tagged \"" ,tag "\"") (h2 "posts tagged \"" ,tag "\"")
,@(map (lambda (post) (show-post post #f)) ,@(map (lambda (post) (show-post post #f))
(take-max posts 10))) (take-max (reverse posts) 10)))
#:etag (assq-ref index 'master) #:etag (assq-ref index 'master)
#:title (string-append "posts tagged \"" tag "\"")) #:title (string-append "posts tagged \"" tag "\""))
(respond `((h2 "Unknown tag " ,tag) (respond `((h2 "Unknown tag " ,tag)