From f9814bd935f6ddb2454181bbf24ec75a487228ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 15:52:33 +0200 Subject: Fix date output on long events. --- module/vcomponent/datetime/output.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'module/vcomponent/datetime/output.scm') diff --git a/module/vcomponent/datetime/output.scm b/module/vcomponent/datetime/output.scm index 48c89783..c76f010f 100644 --- a/module/vcomponent/datetime/output.scm +++ b/module/vcomponent/datetime/output.scm @@ -54,9 +54,9 @@ (cond [(prop ev 'DTEND) => (lambda (e) (if (date= e (date+ s (date day: 1))) - (date->string s) ; start = end, only return one value - (values (date->string s) - (date->string e))))] + "~Y-~m-~d" ; start = end, only return one value + (values "~Y-~m-~d" + "~Y-~m-~d")))] ;; no end value, just return start [else (date->string s)]))] [else ; guaranteed datetime @@ -65,6 +65,5 @@ (if e (let ((fmt-str (if (date= (get-date s) (get-date e)) "~H:~M" "~Y-~m-~d ~H:~M"))) - (values (datetime->string s fmt-str) - (datetime->string e fmt-str))) - (datetime->string s "~Y-~m-~d ~H:~M")))])) + (values fmt-str fmt-str)) + "~Y-~m-~d ~H:~M"))])) -- cgit v1.2.3