diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-09 16:51:41 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-09 16:51:41 +0200 |
| commit | 6dde4d08ebaa59e035794da492e16f3afc1461f5 (patch) | |
| tree | 22a44b7bad331f8bbf3b61a5af5cd3e4dc0a06b2 | |
| parent | HTML Download tab now div instead of article. (diff) | |
| download | calp-6dde4d08ebaa59e035794da492e16f3afc1461f5.tar.gz calp-6dde4d08ebaa59e035794da492e16f3afc1461f5.tar.xz | |
Replace xcal main with ns-wrap.
| -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)) |