From acddc16bfffed1ac2d01ae8917953d5f8421359a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 10 Jun 2021 13:33:58 +0200 Subject: Add marker on events with descriptions. --- module/calp/html/vcomponent.scm | 6 +++++- static/style.scss | 11 +++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index ca38bdf7..29aa43f2 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -334,7 +334,11 @@ `(span (@ (class "bind location") (data-property "location")) ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) - (prop ev 'LOCATION))))) + (prop ev 'LOCATION)))) + ;; Document symbol when we have text + ,(when (and=> (prop ev 'DESCRIPTION) (negate string-null?)) + `(span (@ (class "description")) + "🗎"))) (div (@ (style "display:none !important;")) ,((@ (vcomponent xcal output) ns-wrap) ((@ (vcomponent xcal output) vcomponent->sxcal) diff --git a/static/style.scss b/static/style.scss index 87e62637..c2cb5086 100644 --- a/static/style.scss +++ b/static/style.scss @@ -579,6 +579,17 @@ along with their colors. width: 100%; height: 100%; overflow: hidden; + + /* TODO + This gets to large for really short events, placing the marker halfway + outside the event body. + */ + .description { + position: absolute; + right: 1ex; + bottom: 0; + font-size: 200%; + } } .zero-width-events .event { -- cgit v1.2.3