blob: 6005c55006f096690c7479ac17259e3eb3d5d7ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(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)
(with-output-to-port port
(lambda () (component->ical-string component))))
(define (deserialize port)
(parse-calendar port))
|