From 1d3340b4b483bd5a338f49af78533ed2241c587b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 23 Mar 2020 01:51:46 +0100 Subject: Fix time span formatting for HTML descriptions. --- module/output/html.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index 4d623438..cb0ba9b5 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -52,9 +52,10 @@ (cond [(attr ev 'DTEND) => (lambda (e) (if (date= e (date+ s (date day: 1))) - (values (date->string s) "") + (date->string s) ; start = end, only return one value (values (date->string s) (date->string e))))] + ;; no end value, just return start [else (date->string s)]))] [else ; guaranteed datetime (let ((s (attr ev 'DTSTART)) @@ -311,8 +312,9 @@ (class "hidelink")) ,(attr ev 'SUMMARY))) (div - ,(let* ((start end (fmt-time-span ev))) - `(div ,start " — " ,end)) + ,(call-with-values (lambda () (fmt-time-span ev)) + (match-lambda* [(start end) `(div ,start " — " ,end)] + [(start) `(div ,start)])) ,(when (and=> (attr ev 'LOCATION) (negate string-null?)) `(div (b "Plats: ") ,(attr ev 'LOCATION))) ,(and=> (attr ev 'DESCRIPTION) (lambda (str) ((description-filter) ev str)))))) -- cgit v1.2.3