website

commit 33e24b033f48033ba29df740280be8fd09d461de
parent e603a0c9aec83f7b507ac89fbc4529a32668b480
Author: Adriel Dumas--Jondeau <leirda@disroot.org>
Date:   Sat, 25 May 2024 22:52:40 +0200

Affiche les dates dans un format plus international

La flemme de jouer avec les différentes manières d’afficher une date,
alors je vais respecter la convention AAAA-MM-JJ qui a l’avantage de
donner un ordre alpha-chronologique.

Diffstat:
M
haunt.scm
 | 
17
++++++++++++++++-

1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/haunt.scm b/haunt.scm
@@ -32,6 +32,20 @@
 	    ", le " ,(post-date->string post)))
     ,(post-sxml post)))
 
+(define (duper-collection-template site title posts prefix)
+  (define (post-uri post)
+    (string-append (or prefix "") "/"
+		   (site-post-slug site post) ".html"))
+
+  (define (summary post)
+    `(li (@ (class "summary"))
+	 (a (@ (href ,(post-uri post)))
+	    ,(post-title post)
+	    " – " ,(post-date->string post))))
+
+  `((h1 ,title)
+    (ul ,@(map summary posts))))
+
 (define (duper-layout site title body)
   `((doctype "html")
     (head (title ,title))
@@ -66,7 +80,8 @@
 (define duper-theme
   (theme #:name "duper"
 	 #:layout duper-layout
-	 #:post-template duper-post-template))
+	 #:post-template duper-post-template
+	 #:collection-template duper-collection-template))
 
 (define duper-builders
   (list (blog #:theme duper-theme