commit c792036290a680f10899550ed57e41b7eb18b33a
parent 866510419b4e5360adde62e1f0eb40f3fbdb624b
Author: Adriel Dumas--Jondeau <leirda@disroot.org>
Date: Sat, 25 May 2024 19:55:34 +0200
Expose `xml->sxml' de (sxml-simple) pour celleux qui le veulent
Notamment, dans l’article à venir, il servira à générer le résultat à
partir d’un exemple donné en HTML
Diffstat:
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/duper.scm b/duper.scm
@@ -1,7 +1,9 @@
(define-module (duper)
#:use-module (ice-9 textual-ports)
#:use-module (sxml match)
- #:use-module (sxml simple))
+ #:use-module (sxml simple)
+
+ #:re-export (xml->sxml))
(define (url to desc)
`(ul (li (a (@ (href ,to)) ,desc))))