Put base for new store-load interface.

1 files changed, 18 insertions, 0 deletions

diff --git a/module/vcomponent/formats/ical.scm b/module/vcomponent/formats/ical.scm
new file mode 100644
index 00000000..294642de
--- /dev/null
+++ b/module/vcomponent/formats/ical.scm
@@ -0,0 +1,18 @@
+(define-module (vcomponent formats ical)
+  :use-module ((vcomponent formats ical output)
+               :select (component->ical-string))
+  :use-module ((vcomponent formats ical parse)
+               :select (parse-calendar))
+  :export (serialize
+           deserialize
+           )
+   )
+
+
+(define (serialize component port)
+  (display (component->ical-string component)
+           port))
+
+(define (deserialize port)
+  (parse-calendar port)
+  )