From ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 14 Feb 2020 11:16:49 +0100
Subject: Export utc? for time objects.

---
 module/srfi/srfi-19/alt.scm      | 6 +++---
 module/srfi/srfi-19/alt/util.scm | 1 +
 module/vcomponent/output.scm     | 2 +-
 3 files changed, 5 insertions(+), 4 deletions(-)

(limited to 'module')

diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm
index e1245a82..8443336b 100644
--- a/module/srfi/srfi-19/alt.scm
+++ b/module/srfi/srfi-19/alt.scm
@@ -1,6 +1,6 @@
 (define-module (srfi srfi-19 alt)
   :export (date? year month day
-                 hour minute second
+                 hour minute second utc?
                  time? datetime?
                  )
 
@@ -56,7 +56,7 @@
   (make-time hour minute second utc)
   time?
   (hour hour) (minute minute) (second second)
-  (utc utc)                             ; bool
+  (utc utc?)                            ; bool
   )
 
 (set-record-type-printer!
@@ -69,7 +69,7 @@
                (hour r) (minute r) (second r))
        (format p "~2'0d:~2'0d:~2'0d~a"
                (hour r) (minute r) (second r)
-               (if (utc r) "Z" "")))))
+               (if (utc? r) "Z" "")))))
 
 (define*-public (time key: (hour 0) (minute 0) (second 0) (utc #f))
   (make-time hour minute second utc))
diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm
index 8de92d93..38c1c146 100644
--- a/module/srfi/srfi-19/alt/util.scm
+++ b/module/srfi/srfi-19/alt/util.scm
@@ -108,6 +108,7 @@
                    ((#\H) (format #t "~2'0d" (hour time)))
                    ((#\M) (format #t "~2'0d" (minute time)))
                    ((#\S) (format #t "~2'0d" (second time)))
+                   ((#\z) (when (utc? time) (display "Z")))
                    (else (unless allow-unknown?
                            (error 'time->string "Invalid format token ~a" token))))
                  #f)
diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm
index 55cc0b12..d38095e7 100644
--- a/module/vcomponent/output.scm
+++ b/module/vcomponent/output.scm
@@ -73,7 +73,7 @@ Removes the X-HNH-FILENAME attribute, and sets PRODID to
                                    (string-append
                                     (date->string (get-date value) "~Y~m~d")
                                     "T"
-                                    (time->string (get-time value) "~H~M~S"))]))
+                                    (time->string (get-time value) "~H~M~S~z"))]))
                            ((X-HNH-DURATION)
                             (format #f "~s" value))
                            (else value)))))
-- 
cgit v1.2.3