diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-11 17:42:45 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-11 17:42:45 +0200 |
| commit | 32e916e1ee0e0af28e25fa3bb966ffb6e72a4e9a (patch) | |
| tree | 1005086591ca7429ea7041e1d6247962a45e5497 /module/datetime | |
| parent | Todo about search paths. (diff) | |
| download | calp-32e916e1ee0e0af28e25fa3bb966ffb6e72a4e9a.tar.gz calp-32e916e1ee0e0af28e25fa3bb966ffb6e72a4e9a.tar.xz | |
Add ~3 to datetime->string.
Diffstat (limited to 'module/datetime')
| -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)))) |