website

commit 326b6dcc95f8fd622329c62603e9110950131835
parent 33e24b033f48033ba29df740280be8fd09d461de
Author: Adriel Dumas--Jondeau <leirda@disroot.org>
Date:   Mon, 27 May 2024 11:58:17 +0200

Économise de la bande passante en retirant les espaces

Comme a priori ça ne change pas le résultat…

Diffstat:
M
duper.scm
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/duper.scm b/duper.scm
@@ -20,7 +20,8 @@
 (define (load-svg path)
   (let* ((ns "http://www.w3.org/2000/svg")
 	 (sxml (with-input-from-file path
-		 (lambda () (xml->sxml #:namespaces
+		 (lambda () (xml->sxml #:trim-whitespaces? #t
+				       #:namespaces
 				       `((ns . ,ns)))))))
     (svg-uns (caddr sxml))))