From 9456ef64d648379fc99a179a78fd521be363bce0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 21 Feb 2020 15:42:31 +0100
Subject: HTML mark tentative events.

---
 module/output/html.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index 2717dc50..75586468 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -92,6 +92,8 @@
   `(a (@ (href "#" ,(UID ev))
          (class "hidelink"))
       (div (@ (class "event CAL_" ,(html-attr (attr (parent ev) 'NAME))
+                ,(when (and (attr ev 'PARTSTAT) (string= "TENTATIVE" (attr ev 'PARTSTAT)))
+                   " tentative")
                 ,(when (date<? (as-date (attr ev 'DTSTART)) date)
                    " continued")
                 ;; TODO all day events usually have the day after as DTEND.
@@ -186,7 +188,9 @@
   ;; (format (current-error-port) "fmt-single-event: ~a~%" (attr ev 'X-HNH-FILENAME))
   `(article (@ (id ,(UID ev))
                (class "eventtext CAL_bg_"
-                 ,(html-attr (attr (parent ev) 'NAME))))
+                 ,(html-attr (attr (parent ev) 'NAME))
+                 ,(when (and (attr ev 'PARTSTAT) (string= "TENTATIVE" (attr ev 'PARTSTAT)))
+                    " tentative")))
             (h3 (a (@ (href "#" ,(date-link (as-date (attr ev 'DTSTART))))
                       (class "hidelink"))
                    ,(attr ev 'SUMMARY)))
-- 
cgit v1.2.3