blob: 4c27931a4e50edfad2092a177684f3e639873a56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(define-module (xcal)
:use-module (srfi srfi-88)
:use-module (hnh test xmllint)
:use-module (hnh util path)
:use-module ((rnrs io ports) :select (get-string-all))
:use-module ((vcomponent formats xcal) :prefix #{xcs:}#)
:use-module ((calp namespaces) :select (xcal))
:export (sanitize-string
serialize
deserialize
component-str))
(define (sanitize-string str)
(xmllint str))
(define serialize
(lambda (component port)
(xcs:serialize
component port namespaces: `((,xcal . c))
)))
(define deserialize xcs:deserialize)
(define component-str
(call-with-input-file (path-append (getenv "here") "event.xcs")
get-string-all))
|