diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 23:12:30 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-29 15:14:46 +0200 |
commit | 4d0b44375f1e869f6fa69dc09f029e9bf7574c1d (patch) | |
tree | 1ef2214a2a1882c0399c9c23b7560aa27d651965 /module/calp/html/view/small-calendar.scm | |
parent | Minor fixes to 'html --help'. (diff) | |
download | calp-4d0b44375f1e869f6fa69dc09f029e9bf7574c1d.tar.gz calp-4d0b44375f1e869f6fa69dc09f029e9bf7574c1d.tar.xz |
Basic support for events in small calendar.
Diffstat (limited to 'module/calp/html/view/small-calendar.scm')
-rw-r--r-- | module/calp/html/view/small-calendar.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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 |