From b2b366a6fa6efa2c6cb30df5d099e8e15ce12d29 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 11 Jul 2020 00:05:42 +0200 Subject: Javascript bind advanced fields + special formatting. --- module/output/html.scm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'module') 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")) -- cgit v1.2.3