diff options
Diffstat (limited to 'module/calp/html/view/small-calendar.scm')
-rw-r--r-- | module/calp/html/view/small-calendar.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/calp/html/view/small-calendar.scm b/module/calp/html/view/small-calendar.scm index 4d40c57c..06a3342f 100644 --- a/module/calp/html/view/small-calendar.scm +++ b/module/calp/html/view/small-calendar.scm @@ -1,16 +1,17 @@ (define-module (calp html view small-calendar) :use-module ((calp html components) :select (xhtml-doc include-css)) :use-module ((calp html caltable) :select (cal-table)) - :use-module ((datetime) :select (month- month+ remove-day date->string)) + :use-module ((datetime) :select (date date+ date- date->string)) :export (render-small-calendar) ) (define (render-small-calendar month standalone) (define table (cal-table start-date: month - end-date: (remove-day (month+ month)) - next-start: month+ - prev-start: month- + end-date: (date- (date+ month (date month: 1)) + (date day: 1)) + next-start: (lambda (d) (date+ d (date day: 7))) + prev-start: (lambda (d) (date- d (date day: 7))) )) (if standalone (xhtml-doc |