From 4d0b44375f1e869f6fa69dc09f029e9bf7574c1d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 23 Aug 2020 23:12:30 +0200 Subject: Basic support for events in small calendar. --- module/calp/html/view/small-calendar.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'module/calp/html/view/small-calendar.scm') diff --git a/module/calp/html/view/small-calendar.scm b/module/calp/html/view/small-calendar.scm index 80cbbaf2..78c7e30f 100644 --- a/module/calp/html/view/small-calendar.scm +++ b/module/calp/html/view/small-calendar.scm @@ -2,6 +2,10 @@ :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 ((vcomponent instance methods) :select (get-event-set)) + :use-module ((vcomponent instance) :select (global-event-object)) ) (define-public (render-small-calendar month standalone) @@ -10,6 +14,8 @@ end-date: (remove-day (month+ month)) next-start: month+ prev-start: month- + ;; TODO proper subset + event-stream: (get-event-set global-event-object) )) (if standalone (xhtml-doc -- cgit v1.2.3