02/02: website: publications: Show newest publications first.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 1474c8671118d099f7f2dcc0125e53116b393e0b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Apr 7 15:44:05 2022 +0200

    website: publications: Show newest publications first.
    
    * website/apps/media/templates/publication-list.scm (publication-list-t):
    Add call to 'sort'.
---
 website/apps/media/templates/publication-list.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/website/apps/media/templates/publication-list.scm 
b/website/apps/media/templates/publication-list.scm
index 44847c7..bcc5744 100644
--- a/website/apps/media/templates/publication-list.scm
+++ b/website/apps/media/templates/publication-list.scm
@@ -6,7 +6,9 @@
   #:use-module (apps base types)
   #:use-module (apps base utils)
   #:use-module (apps i18n)
+  #:use-module ((apps media types) #:select (publication-date))
   #:use-module (apps media templates components)
+  #:use-module (srfi srfi-19)
   #:export (publication-list-t))
 
 
@@ -43,4 +45,9 @@
       (div
        (@ (class "publication-list centered-block limit-width"))
 
-       ,@(map publication->shtml publications))))))
+       ,@(map publication->shtml
+              ;; Show newest publications first.
+              (sort publications
+                    (lambda (p1 p2)
+                      (time<? (date->time-utc (publication-date p2))
+                              (date->time-utc (publication-date p1)))))))))))