diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-11 00:05:42 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-11 00:05:42 +0200 |
commit | b2b366a6fa6efa2c6cb30df5d099e8e15ce12d29 (patch) | |
tree | 46f6256a8f58a18fcf3344045f4eef9abcfb59fa /module/output/html.scm | |
parent | Remove Javascript XML pretty printer. (diff) | |
download | calp-b2b366a6fa6efa2c6cb30df5d099e8e15ce12d29.tar.gz calp-b2b366a6fa6efa2c6cb30df5d099e8e15ce12d29.tar.xz |
Javascript bind advanced fields + special formatting.
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")) |