diff options
| -rw-r--r-- | module/calp/html/view/small-calendar.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/calp/html/view/small-calendar.scm b/module/calp/html/view/small-calendar.scm index 78c7e30f..f9e0fcd8 100644 --- a/module/calp/html/view/small-calendar.scm +++ b/module/calp/html/view/small-calendar.scm @@ -1,10 +1,12 @@ (define-module (calp html view small-calendar) :use-module ((calp html components) :select (xhtml-doc include-css)) + :use-module ((calp html vcomponent) :select (calendar-styles)) :use-module ((calp html caltable) :select (cal-table)) :use-module ((datetime) :select (month- month+ remove-day date->string)) - :use-module ((vcomponent instance methods) :select (get-event-set)) + :use-module ((vcomponent instance methods) + :select (get-event-set get-calendars)) :use-module ((vcomponent instance) :select (global-event-object)) ) @@ -20,6 +22,8 @@ (if standalone (xhtml-doc (head (title ,(date->string month "~1")) - ,(include-css "/static/smallcal.css")) + ,(include-css "/static/smallcal.css") + ,(calendar-styles (get-calendars global-event-object)) + ) (body ,table)) table)) |