blob: 2732a5a79a342b4aa4d09c408fefa3059a73fc1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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))
|