diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-26 17:53:32 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-26 17:53:32 +0100 |
| commit | 4b9fa491fa44c6a4df803b49e4987a03bdc71a0a (patch) | |
| tree | 4e53ac538a1397e91ed1931515835416b7b93216 /module/calp/html/view/calendar | |
| parent | Made vevent-dl prettier. (diff) | |
| download | calp-4b9fa491fa44c6a4df803b49e4987a03bdc71a0a.tar.gz calp-4b9fa491fa44c6a4df803b49e4987a03bdc71a0a.tar.xz | |
Display categories in event description.
Diffstat (limited to 'module/calp/html/view/calendar')
| -rw-r--r-- | module/calp/html/view/calendar/week.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index b228991b..1fbe4dbe 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -235,9 +235,9 @@ '(div (@ (class " vevent eventtext summary-tab " ())) (h3 ((span (@ (class "repeating")) ; "↺" ) - (span (@ (class "bind summary") + (span (@ (class "summary") (data-property "summary"))))) - (div (div (time (@ (class "bind dtstart") + (div (div (time (@ (class "dtstart") (data-property "dtstart") (data-fmt "~L~H:~M") (datetime ; "2021-09-29T19:56:46" @@ -245,7 +245,7 @@ ; "19:56" ) "\xa0—\xa0" - (time (@ (class "bind dtend") + (time (@ (class "dtend") (data-property "dtend") (data-fmt "~L~H:~M") (datetime ; "2021-09-29T19:56:46" @@ -254,14 +254,17 @@ )) (div (@ (class "fields")) (div (b "Plats: ") - (div (@ (class "bind location") + (div (@ (class "location") (data-property "location")) ; "Alsättersgatan 13" )) - (div (@ (class "bind description") + (div (@ (class "description") (data-property "description")) ; "With a description" ) + + (div (@ (class "categories") + (data-property "categories"))) ;; (div (@ (class "categories")) ;; (a (@ (class "category") ;; (href "/search/?" @@ -296,11 +299,11 @@ (div (@ (class "event-body")) (span (@ (class "repeating")) ; "↺" ) - (span (@ (class "bind summary") + (span (@ (class "summary") (data-property "summary")) ; ,(format-summary ev (prop ev 'SUMMARY)) ) - (span (@ (class "bind location") + (span (@ (class "location") (data-property "location"))) ;; Document symbol when we have text (span (@ (class "description")) |