diff options
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index d55e40f0..c45e626b 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -427,8 +427,18 @@ `(span (@ (class "summary")) ,(prop ev 'SUMMARY)))) (div ,(call-with-values (lambda () (fmt-time-span ev)) - (case-lambda [(start) `(div ,start)] - [(start end) `(div ,start " — " ,end)])) + (case-lambda [(start) `(div (span (@ (class "dtstart") + (data-fmt "%H:%M")) + ,start))] + [(start end) `(div (span (@ (class "dtstart") + ;; TODO same format string + ;; as fmt-time-span used + (data-fmt "%H:%M")) + ,start) + " — " + (span (@ (class "dtend") + (data-fmt "%H:%M")) + ,end))])) ,(when (and=> (prop ev 'LOCATION) (negate string-null?)) `(div (b "Plats: ") (div (@ (class "location")) |