Smallcal now hos colors.smallcal

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))