From 5a34ac846be467e80e24d04a8683d16924c43b36 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 10 Dec 2021 12:08:43 +0100 Subject: Repair event position in week. --- module/calp/html/view/calendar/month.scm | 2 +- module/calp/html/view/calendar/week.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'module') diff --git a/module/calp/html/view/calendar/month.scm b/module/calp/html/view/calendar/month.scm index e058a2ec..02689fd5 100644 --- a/module/calp/html/view/calendar/month.scm +++ b/module/calp/html/view/calendar/month.scm @@ -35,7 +35,7 @@ (events-between s e (list->stream long-events))))) (date-range pre-start post-end (date day: 7)))) - `((script "const VIEW='month';") + `((script "window.VIEW='month';") (header (@ (class "table-head")) ,(string-titlecase (date->string start-date "~B ~Y"))) (div (@ (class "caltable") 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 -- cgit v1.2.3