From 27f25ae1749f28d59edb925c3989efbeb83fcc41 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 23 Aug 2020 17:11:21 +0200
Subject: Add rendering of standalone small-cal.

---
 module/html/view/small-calendar.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 module/html/view/small-calendar.scm

(limited to 'module/html/view/small-calendar.scm')

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))
-- 
cgit v1.2.3