diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-07 16:28:40 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-07 16:28:40 +0100 |
| commit | 5e59121e087923433713dbc4f607699052560a33 (patch) | |
| tree | 92bd14c95c913ae8d2fabcac4580b8b6965809ca /module/calp/html/vcomponent.scm | |
| parent | Add fullscreen button to popups. (diff) | |
| download | calp-5e59121e087923433713dbc4f607699052560a33.tar.gz calp-5e59121e087923433713dbc4f607699052560a33.tar.xz | |
Deprecate editable-repeat-info, some comments.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 9309bcdb..bff219aa 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -26,6 +26,7 @@ :use-module ((base64) :select (base64encode)) ) +;; used by search view (define-public (compact-event-list list) (define calendars @@ -390,6 +391,9 @@ events)))))) +;; Specific styles for each calendar. +;; TODO only emit the CSS here, requiring the caller to handle the context, +;; since that would allow us to use this in other contexts. (define-public (calendar-styles calendars) `(style ,(lambda () (format #t "~:{ [data-calendar=\"~a\"] { --color: ~a; --complement: ~a }~%~}" @@ -468,6 +472,7 @@ ;; TODO bind this into the xcal (define (editable-repeat-info event) + (warning "editable-repeat-info is deprecated") `(div (@ (class "eventtext")) (h2 "Upprepningar") ,@(when (debug) |