diff options
Diffstat (limited to '')
-rw-r--r-- | module/html/view/small-calendar.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/module/html/view/small-calendar.scm b/module/html/view/small-calendar.scm new file mode 100644 index 00000000..e6378176 --- /dev/null +++ b/module/html/view/small-calendar.scm @@ -0,0 +1,19 @@ +(define-module (html view small-calendar) + :use-module ((html components) :select (xhtml-doc include-css)) + :use-module ((html caltable) :select (cal-table)) + :use-module ((datetime) :select (month- month+ remove-day date->string)) + ) + +(define-public (render-small-calendar month standalone) + (define table (cal-table + start-date: month + end-date: (remove-day (month+ month)) + next-start: month+ + prev-start: month- + )) + (if standalone + (xhtml-doc + (head (title ,(date->string month "~1")) + ,(include-css "/static/smallcal.css")) + (body ,table)) + table)) |