From a8c1685ace03d4d30915f6375cff6e046eb41dd4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 2 Mar 2020 00:35:24 +0100 Subject: Made start of week for html configurable. --- module/datetime/util.scm | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) (limited to 'module/datetime') diff --git a/module/datetime/util.scm b/module/datetime/util.scm index 0eaf484a..3da1d709 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -65,16 +65,21 @@ (sat) 6 ) -(define-public (week-day-name week-day-number) +(define*-public (week-day-name week-day-number optional: truncate-to) ;; TODO internationalization - (case* week-day-number - [(sun 7) "Sön"] - [(mon) "Mån"] - [(tue) "Tis"] - [(wed) "Ons"] - [(thu) "Tor"] - [(fri) "Fre"] - [(sat) "Lör"])) + (let ((str + (case* week-day-number + [(sun 7) "Söndag"] + [(mon) "Måndag"] + [(tue) "Tisdag"] + [(wed) "Onsdag"] + [(thu) "Torsdag"] + [(fri) "Fredag"] + [(sat) "Lördag"] + [else (error 'argument-error "No day ~a in week" week-day-number)]))) + (if truncate-to + (string-take str truncate-to) + str))) (define*-public (date->string date optional: (fmt "~Y-~m-~d") key: allow-unknown?) (with-output-to-string -- cgit v1.2.3