From 8173e578488a9210b0297671ff87d41c4930d219 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 22 Mar 2020 20:36:53 +0100 Subject: Restore contiued-continuing style for long events. --- module/output/html.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'module') diff --git a/module/output/html.scm b/module/output/html.scm index 2877a399..016bd45e 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -206,7 +206,13 @@ (class "hidelink")) (div (@ (class "event CAL_" ,(html-attr (attr (parent ev) 'NAME)) ,(when (and (attr ev 'PARTSTAT) (string= "TENTATIVE" (attr ev 'PARTSTAT))) - " tentative")) + " tentative") + ,(when (date/-time< (attr ev 'DTSTART) start-date) + " continued") + ,(when (date/-time< (date+ end-date (date day: 1)) (attr ev 'DTEND)) + " continuing" + ) + ) (style ,style)) (div (@ (class "event-inner")) (div (@ (class "popup")) -- cgit v1.2.3