diff options
Diffstat (limited to 'module/html/view/small-calendar.scm')
-rw-r--r-- | module/html/view/small-calendar.scm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/module/html/view/small-calendar.scm b/module/html/view/small-calendar.scm deleted file mode 100644 index e6378176..00000000 --- a/module/html/view/small-calendar.scm +++ /dev/null @@ -1,19 +0,0 @@ -(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)) |