From 6dde4d08ebaa59e035794da492e16f3afc1461f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 9 Jul 2020 16:51:41 +0200 Subject: Replace xcal main with ns-wrap. --- module/output/xcal.scm | 7 +++---- 1 file 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)) -- cgit v1.2.3