From d9807d45c887688a19d7fce4fc239dd8bb52d720 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 29 Aug 2020 17:45:54 +0200 Subject: Smallcal now hos colors. --- module/calp/html/view/small-calendar.scm | 8 ++++++-- 1 file 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)) -- cgit v1.2.3