diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-09 19:17:46 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-09 19:17:46 +0100 |
| commit | 15e50471776e702333920b188932f03ee1f8573b (patch) | |
| tree | 6129332e6591cbe685f999550b6891c717126401 /module/calp/html/view/calendar | |
| parent | CSS to prevent event blocks from overflowing. (diff) | |
| download | calp-15e50471776e702333920b188932f03ee1f8573b.tar.gz calp-15e50471776e702333920b188932f03ee1f8573b.tar.xz | |
Propagate recurring events to frontend.
This handles each instance of a recurring event as its own unique event,
which allows us to properly send it to the frontend. It's currently not
possible to submit the repeating events back, but that is probably a
underlying problem.
Diffstat (limited to 'module/calp/html/view/calendar')
| -rw-r--r-- | module/calp/html/view/calendar/week.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 6df51da2..d6f35ad8 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -14,7 +14,7 @@ event-zero-length? events-between)) :use-module ((calp html vcomponent) - :select (make-block) ) + :select (make-block output-uid) ) ;; :use-module ((calp html components) ;; :select ()) :use-module ((vcomponent group) @@ -56,15 +56,8 @@ ,@(for event in (stream->list (events-between start-date end-date events)) `(popup-element - ;; TODO (@ (class "vevent") - (data-uid ,(prop event 'UID))) - ) - #; - ((@ (calp html vcomponent ) popup) ; - event (string-append "popup" (html-id event)))) - - )) + (data-uid ,(output-uid event))))))) ;; description in sidebar / tab of popup (template (@ (id "vevent-description")) |