diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-06 01:17:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | 844be8f300bce1dc22507420ed7fd0e81240ddd0 (patch) | |
| tree | 3ffc97e50f94ecaa76628fff03fe8f923f9401c4 | |
| parent | Resolve whitespace in binary. (diff) | |
| download | calp-844be8f300bce1dc22507420ed7fd0e81240ddd0.tar.gz calp-844be8f300bce1dc22507420ed7fd0e81240ddd0.tar.xz | |
Resolve TZ for xcal datetime.
| -rw-r--r-- | module/output/sxml-types.scm | 5 |
1 files 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) |