diff options
-rw-r--r-- | module/output/xcal.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/module/output/xcal.scm b/module/output/xcal.scm index 425865a5..b4fee9b7 100644 --- a/module/output/xcal.scm +++ b/module/output/xcal.scm @@ -128,7 +128,6 @@ ,(unless (null? (children component)) `(components ,@(map vcomponent->sxcal (children component))))))) -(define-public (main calendar) - `(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"") - (icalendar (@ (xmlns "urn:ietf:params:xml:ns:icalendar-2.0")) - ,(vcomponent->sxcal calendar)))) +(define-public (ns-wrap sxml) + `(icalendar (@ (xmlns "urn:ietf:params:xml:ns:icalendar-2.0")) + ,sxml)) |