From 89a657ed98e70efaeef566b0876b406bbcdb2255 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 4 Aug 2020 13:35:52 +0200
Subject: Start work on long event layout for months.

---
 module/datetime.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/datetime.scm')

diff --git a/module/datetime.scm b/module/datetime.scm
index fdab2fe6..1141aa64 100644
--- a/module/datetime.scm
+++ b/module/datetime.scm
@@ -554,10 +554,10 @@
 ;; Returns a list of all dates from start to end.
 ;; both inclusive
 ;; date, date → [list date]
-(define-public (date-range start end)
+(define*-public (date-range start end optional: (increment (date day: 1)))
   (stream->list
    (stream-take-while (lambda (d) (date<= d end))
-                      (day-stream start))))
+                      (date-stream increment start))))
 
 
 ;;; Output
-- 
cgit v1.2.3