From a02038eb0058035d66db246aa676c3b41fa5a078 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 21 Apr 2020 19:16:39 +0200 Subject: Add ~Z format to datetimes. --- module/datetime/util.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/module/datetime/util.scm b/module/datetime/util.scm index 681dd868..2a85c928 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -85,6 +85,8 @@ (zeller J (1- K) (+ m 12) (day date)) (zeller J K (month date) (day date))))) + + ;; Given a date, returns the earliest start of week going backwards from that date. ;; sön 22 mar 2020 20:09:57 CET ;; @example @@ -178,6 +180,7 @@ ((#\a) (display (week-day-name (week-day date) 3))) ((#\b) (display (locale-month-short (month date)))) ((#\B) (display (locale-month (month date)))) + ((#\Z) (when (equal? "UTC" (get-timezone datetime)) (display "Z"))) (else (unless allow-unknown? (error 'datetime->string "Invalid format token ~a" token)))) #f) -- cgit v1.2.3