diff options
| -rw-r--r-- | module/datetime/util.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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)))) |