diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-04 22:14:30 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-04 22:14:30 +0200 |
commit | 4fe03a76f434cd55bd72830d69cf711be0f91d1e (patch) | |
tree | 6b725487b7b8d2eb852297f30aa6099f5cb436ae /module/output/none.scm | |
parent | Fix re-export-modules. (diff) | |
download | calp-4fe03a76f434cd55bd72830d69cf711be0f91d1e.tar.gz calp-4fe03a76f434cd55bd72830d69cf711be0f91d1e.tar.xz |
Handle no event groups in interval.
Diffstat (limited to '')
-rw-r--r-- | module/output/none.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/module/output/none.scm b/module/output/none.scm index 757ee8bd..e6fedd2d 100644 --- a/module/output/none.scm +++ b/module/output/none.scm @@ -9,9 +9,8 @@ (define (none-main calendars events args) (define date (drop-time (current-date))) - (group->event-list - (stream-car - ;; TODO reusing the same grouping causes it to lose events. - ;; I currently have no idea why, but it's BAD. - (get-groups-between (group-stream events) - date date)))) + (let ((groups (get-groups-between (group-stream events) + date date))) + (unless (stream-null? groups) + (group->event-list + (stream-car groups))))) |