blob: e6fedd2d100970aba4a2a5d3f4edc1ee811b03da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (output none)
#:use-module (vcomponent group)
#:use-module (srfi srfi-41)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-19 setters)
#:use-module (srfi srfi-19 util)
#:use-module (util)
#:export (none-main))
(define (none-main calendars events args)
(define date (drop-time (current-date)))
(let ((groups (get-groups-between (group-stream events)
date date)))
(unless (stream-null? groups)
(group->event-list
(stream-car groups)))))
|