summaryrefslogtreecommitdiff
path: root/ldp/resource/xml.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-01-09 11:57:23 +0100
committerVivien Kraus <vivien@planete-kraus.eu>2021-01-12 10:12:06 +0100
commit4b6e56ebb435f16374cebf38923393dc2f27f3ce (patch)
treeda0b56006383eb0a41a711c045427010f740842b /ldp/resource/xml.scm
Initial commit
Diffstat (limited to 'ldp/resource/xml.scm')
-rw-r--r--ldp/resource/xml.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/ldp/resource/xml.scm b/ldp/resource/xml.scm
new file mode 100644
index 0000000..d6a63c4
--- /dev/null
+++ b/ldp/resource/xml.scm
@@ -0,0 +1,9 @@
+(define-module (ldp resource xml)
+ #:use-module (ldp resource sxml)
+ #:use-module (sxml simple))
+
+(define-public (xml->resource string-or-port)
+ (sxml->resource (xml->sxml string-or-port)))
+
+(define-public (resource->xml resource . args)
+ (apply sxml->xml (resource->sxml resource) args))