From 6a580dd048bf326c40245f05b5700c1b3274e182 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 6 Aug 2020 20:33:47 +0200 Subject: Fix time when creating from month view. --- module/output/html.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/module/output/html.scm b/module/output/html.scm index 9aacfebe..1f1fed46 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -478,6 +478,7 @@ (define*-public (render-calendar-table key: events start-date end-date pre-start post-end #:allow-other-keys) (define-values (long-events short-events) + ;; TODO should be really-long-event? or event-spanning-midnight (partition really-long-event? (stream->list (events-between pre-start post-end events)))) (define short-event-groups @@ -505,15 +506,11 @@ (weekday-list (get-config 'week-start))) ,@(map (lambda (group i) (let* (((s e . events) group)) - ;; These divs support dragging to create events. - ;; They have correct size when draging, but are - ;; then created with completely wrong start and - ;; end times. TODO `(div (@ (class "cal-cell longevents event-container") (style "grid-area: long " ,i ";" "grid-column: 1 / span 7;") (data-start ,(date->string s)) - (data-end ,(date->string e))) + (data-end ,(date->string (add-day e)))) ,@(lay-out-long-events s e events)))) long-event-groups -- cgit v1.2.3