diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/calp/html/vcomponent.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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) |