diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:36:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-22 20:36:53 +0100 |
| commit | 8173e578488a9210b0297671ff87d41c4930d219 (patch) | |
| tree | d1265dd542fca4d91cc9d954e0832e69cfbbe875 /module | |
| parent | HTML weekly proper week-start. (diff) | |
| download | calp-8173e578488a9210b0297671ff87d41c4930d219.tar.gz calp-8173e578488a9210b0297671ff87d41c4930d219.tar.xz | |
Restore contiued-continuing style for long events.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 7 insertions, 1 deletions
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")) |