diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-02 00:35:24 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-02 00:35:24 +0100 |
commit | a8c1685ace03d4d30915f6375cff6e046eb41dd4 (patch) | |
tree | 62e79fa0d84d6a53ed1c1188621a1eba0008704e /module/datetime | |
parent | Warn on empty-line during parse. (diff) | |
download | calp-a8c1685ace03d4d30915f6375cff6e046eb41dd4.tar.gz calp-a8c1685ace03d4d30915f6375cff6e046eb41dd4.tar.xz |
Made start of week for html configurable.
Diffstat (limited to 'module/datetime')
-rw-r--r-- | module/datetime/util.scm | 23 |
1 files changed, 14 insertions, 9 deletions
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 |