From 844be8f300bce1dc22507420ed7fd0e81240ddd0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 6 Jul 2020 01:17:50 +0200
Subject: Resolve TZ for xcal datetime.

---
 module/output/sxml-types.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/module/output/sxml-types.scm b/module/output/sxml-types.scm
index 86859ce1..bbd70fe8 100644
--- a/module/output/sxml-types.scm
+++ b/module/output/sxml-types.scm
@@ -12,11 +12,12 @@
   `(date ,(date->string v "~Y-~m-~d")))
 
 (define (write-datetime p v)
-  ;; TODO TZID?
   `(date-time
     ,(datetime->string
       (hashq-ref p 'X-HNH-ORIGINAL v)
-      ;; TODO ~z?
+      ;; 'Z' should be included for UTC,
+      ;; other timezones MUST be specified
+      ;; in the TZID parameter.
       "~Y-~m-~dT~H:~M:~S~Z")))
 
 (define (write-time _ v)
-- 
cgit v1.2.3