diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-10 15:13:46 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-10 15:13:46 +0200 |
commit | 200c0bc92203f2103805f1d09602b02800a8593a (patch) | |
tree | a79112bb06a1b759b4f766cb3c62cbd7243c73bc /module/c | |
parent | Drive popup tabs through javascript. (diff) | |
download | calp-200c0bc92203f2103805f1d09602b02800a8593a.tar.gz calp-200c0bc92203f2103805f1d09602b02800a8593a.tar.xz |
Mostly fix datetime values in frontend.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/view/calendar/week.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 388c2f07..93d11c25 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -108,7 +108,7 @@ (class "vevent populate-with-uid")))) (tab-element (@ (title "Redigera")) - (span (@ (slot "label")) "📅") + (span (@ (slot "label")) "🖊") (vevent-edit (@ (slot "content") (class "populate-with-uid"))) )) @@ -195,7 +195,7 @@ (define (block-template) `(div (@ ; (id ,(html-id ev)) (data-calendar "unknown") - (class "event CAL_unknown" + (class " CAL_unknown" ;; ,(when (and (prop ev 'PARTSTAT) ;; (eq? 'TENTATIVE (prop ev 'PARTSTAT))) ;; " tentative") @@ -209,16 +209,16 @@ ;; was set on the surounding div, but the popup /needs/ to ;; overflow (for the tabs?). (div (@ (class "event-body")) - `(span (@ (class "repeating")) ; "↺" + (span (@ (class "repeating")) ; "↺" ) (span (@ (class "bind summary") (data-property "summary")) ; ,(format-summary ev (prop ev 'SUMMARY)) ) - `(span (@ (class "bind location") + (span (@ (class "bind location") (data-property "location"))) ;; Document symbol when we have text - `(span (@ (class "description")) + (span (@ (class "description")) ; "🗎" )) ) ) |