diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-10 12:08:43 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-10 16:20:03 +0100 |
| commit | 5a34ac846be467e80e24d04a8683d16924c43b36 (patch) | |
| tree | dd49c656f5211ef5afc16a5aa20dc3dadcb3b756 /module/calp/html/view/calendar/week.scm | |
| parent | Repair <date-time-input/> (diff) | |
| download | calp-5a34ac846be467e80e24d04a8683d16924c43b36.tar.gz calp-5a34ac846be467e80e24d04a8683d16924c43b36.tar.xz | |
Repair event position in week.
Diffstat (limited to '')
| -rw-r--r-- | module/calp/html/view/calendar/week.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 3eb8752b..499de1d6 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -25,7 +25,7 @@ (define*-public (render-calendar key: calendars events start-date end-date #:allow-other-keys) (let* ((long-events short-events (partition long-event? (stream->list (events-between start-date end-date events)))) (range (date-range start-date end-date))) - `((script "const VIEW='week';") + `((script "window.VIEW='week';") (div (@ (class "calendar")) (div (@ (class "days")) ;; Top left area |