diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 17:32:05 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 17:32:05 +0200 |
| commit | 0a9023fc23eb29f0e8937f153341c4859457a89b (patch) | |
| tree | a4f32b82b7d1de797b2ce96aebf1210f0b2561b0 /module/entry-points | |
| parent | Really start breaking apart HTML. (diff) | |
| download | calp-0a9023fc23eb29f0e8937f153341c4859457a89b.tar.gz calp-0a9023fc23eb29f0e8937f153341c4859457a89b.tar.xz | |
Fix problems with new HTML for calendar view.
Diffstat (limited to 'module/entry-points')
| -rw-r--r-- | module/entry-points/server.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 0d2f84b2..fb6b2575 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -32,11 +32,13 @@ :use-module (vcomponent) :use-module (vcomponent search) :use-module (datetime) - :use-module (output html) + ;; :use-module (output html) :use-module (output ical) :autoload (vcomponent instance) (global-event-object) + :use-module (html view calendar) + :export (main) ) @@ -111,7 +113,7 @@ end-date: (date+ start-date (date day: 6)) next-start: (lambda (d) (date+ d (date day: 7))) prev-start: (lambda (d) (date- d (date day: 7))) - render-calendar: render-calendar + render-calendar: (@ (html view calendar week) render-calendar) intervaltype: 'week )))))) @@ -128,7 +130,8 @@ (date day: 1)) next-start: month+ prev-start: month- - render-calendar: render-calendar-table + render-calendar: (@ (html view calendar month) + render-calendar-table) pre-start: (start-of-week start-date (get-config 'week-start)) post-end: (end-of-week (end-of-month start-date) (get-config 'week-start)) intervaltype: 'month |