From 32e916e1ee0e0af28e25fa3bb966ffb6e72a4e9a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 11 May 2020 17:42:45 +0200 Subject: Add ~3 to datetime->string. --- module/datetime/util.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'module/datetime') diff --git a/module/datetime/util.scm b/module/datetime/util.scm index d310992c..37be3b29 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -180,6 +180,8 @@ ((#\e) (format #t "~2' d" (day date))) ((#\1) (format #t "~4'0d-~2'0d-~2'0d" (year date) (month date) (day date))) + ((#\3) (format #t "~2'0d:~2'0d:~2'0d" + (hour time) (minute time) (second time))) ((#\A) (display (week-day-name (week-day date)))) ((#\a) (display (week-day-name (week-day date) 3))) ((#\b) (display (locale-month-short (month date)))) -- cgit v1.2.3