diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/formats/xcal.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/module/vcomponent/formats/xcal.scm b/module/vcomponent/formats/xcal.scm new file mode 100644 index 00000000..2732a5a7 --- /dev/null +++ b/module/vcomponent/formats/xcal.scm @@ -0,0 +1,20 @@ +(define-module (vcomponent formats xcal) + :use-module (sxml simple) + :use-module ((vcomponent formats xcal output) + :select (vcomponent->sxcal ns-wrap)) + :use-module ((vcomponent formats xcal parse) + :select (sxcal->vcomponent)) + :use-module ((hnh util) :select (->)) + :export (serialize deserialize)) + + +(define (serialize component port) + (-> (vcomponent->sxcal component) + ns-wrap + (sxml->xml port) + )) + + +(define (deserialize port) + (-> (xml->sxml port) + sxcal->vcomponent)) |