From e1b4c48c2e5c65e0749d34ebd20d325dd5ab6c28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 3 May 2020 00:12:11 +0200
Subject: Add intervaltype argument to html-generate.

---
 module/output/html.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index 360151de..eaa5c30b 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -580,6 +580,7 @@
 
 (define*-public (html-generate
                  key:
+                 (intervaltype 'all)    ; 'week | 'month | 'all
                  calendars events start-date end-date
                  render-calendar        ; (bunch of kv args) → (list sxml)
                  next-start             ; date → date
-- 
cgit v1.2.3