website

commit 9331dd590ab8c59e649f545a7db0681a33d64238
parent 8797b78c9ad7163372a9b2844aa2eb78ed3df861
Author: Adriel Dumas--Jondeau <leirda@disroot.org>
Date:   Tue,  5 Nov 2024 13:12:40 +0100

Permet d’ajouter des prévisualisations aux photos sur le site

Diffstat:
M
duper.scm
 | 
16
++++++++++------

1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/duper.scm b/duper.scm
@@ -34,12 +34,16 @@
   (string-append/shared
    (post-date->string post) "-" (post-slug-v2 post)))
 
-(define-public (duper-photos srcs)
-  `(ul (@ (class "media-container"))
-       ,@(map (lambda (src)
-		`(li (a (@ (href ,src))
-			(img (@ (src ,src))))))
-	      srcs)))
+(begin
+  (define* (duper-photos names ext #:optional (thumbnail-prefix "-thumb"))
+    `(ul (@ (class "media-container"))
+	 ,@(map (lambda (name)
+		  (let ((href (string-append name ext))
+			(src (string-append name thumbnail-prefix ext)))
+		    `(li (a (@ (href ,href))
+			    (img (@ (src ,src)))))))
+		names)))
+  (export duper-photos))
 
 (define-public (duper-gallery-template post medias)
   (let ((media-src (lambda (media)