diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-21 15:42:31 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-21 16:03:34 +0100 |
commit | 9456ef64d648379fc99a179a78fd521be363bce0 (patch) | |
tree | 00d447fc8b14fa090299310e167bb2f223736d1b /module | |
parent | Update tests to remove srfi-19. (diff) | |
download | calp-9456ef64d648379fc99a179a78fd521be363bce0.tar.gz calp-9456ef64d648379fc99a179a78fd521be363bce0.tar.xz |
HTML mark tentative events.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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))) |