aboutsummaryrefslogtreecommitdiff
path: root/module/html/view/small-calendar.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/html/view/small-calendar.scm')
-rw-r--r--module/html/view/small-calendar.scm19
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))