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 | |
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 | ||||
-rw-r--r-- | static/style.css | 8 |
2 files changed, 13 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))) diff --git a/static/style.css b/static/style.css index 3737b069..e01eef32 100644 --- a/static/style.css +++ b/static/style.css @@ -282,6 +282,14 @@ body { #FFF0 90%, #0007 100%); } +.event.tentative { + border: 3px dashed black; +} + +.eventlist article.tentative { + border-left-style: dashed; +} + /* */ .wholeday .event.continuing { |