website

commit 65100f9a98fe7f2912a94b46480e227466f000b4
parent 21c841d0f69e1ba0a4cb8b2cc5aa9ca6eeac413a
Author: Adriel Dumas--Jondeau <leirda@disroot.org>
Date:   Sat, 25 May 2024 19:54:44 +0200

Corrige l’indentation

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

1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/duper.scm b/duper.scm
@@ -8,12 +8,12 @@
 
 (define (svg-uns sxml)
   (sxml-match sxml
-    ((ns:svg (@ . ,a) . ,r) `(svg (@ ,@a) ,(map svg-uns r)))
-    ((ns:defs (@ . ,a) . ,r) `(defs (@ ,@a) ,(map svg-uns r)))
-    ((ns:style (@ . ,a) . ,r) `(style (@ ,@a) ,(map svg-uns r)))
-    ((ns:g (@ . ,a) . ,r) `(g (@ ,@a) ,(map svg-uns r)))
-    ((ns:path (@ . ,a) . ,r) `(path (@ ,@a) ,(map svg-uns r)))
-    (,default default)))
+	      ((ns:svg (@ . ,a) . ,r) `(svg (@ ,@a) ,(map svg-uns r)))
+	      ((ns:defs (@ . ,a) . ,r) `(defs (@ ,@a) ,(map svg-uns r)))
+	      ((ns:style (@ . ,a) . ,r) `(style (@ ,@a) ,(map svg-uns r)))
+	      ((ns:g (@ . ,a) . ,r) `(g (@ ,@a) ,(map svg-uns r)))
+	      ((ns:path (@ . ,a) . ,r) `(path (@ ,@a) ,(map svg-uns r)))
+	      (,default default)))
 
 (define (load-svg path)
   (let* ((ns "http://www.w3.org/2000/svg")
@@ -22,17 +22,15 @@
 				       `((ns . ,ns)))))))
     (svg-uns (caddr sxml))))
 
-
 (define-public make-date*
   (@ (haunt skribe utils) make-date*))
 
-
 (define-public mail
   "contact@duché-perché.fr")
 
 (define-public sxml-logo
   (sxml-match (load-svg "assets/logo.svg")
-    ((svg (@ . ,a) . ,r) `(svg (@ (class "logo") ,@a) ,r))))
+	      ((svg (@ . ,a) . ,r) `(svg (@ (class "logo") ,@a) ,r))))
 
 (define-public sxml-blason
   (load-svg "assets/blason.svg"))