diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-06-10 13:33:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-06-10 13:33:58 +0200 |
| commit | acddc16bfffed1ac2d01ae8917953d5f8421359a (patch) | |
| tree | 76a14bf3160ab7ff0ca24ea903fe43419eebf20c /module | |
| parent | '/' focuses search in HTML. (diff) | |
| download | calp-acddc16bfffed1ac2d01ae8917953d5f8421359a.tar.gz calp-acddc16bfffed1ac2d01ae8917953d5f8421359a.tar.xz | |
Add marker on events with descriptions.
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) |