blob: 2380438ba5ce00c1eb08eb4eaf417a1eb8915e04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (output none)
#:use-module (statprof)
#:use-module (vcomponent group)
#:use-module (srfi srfi-41)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-19 util)
#:use-module (util)
#:export (none-main))
(define (none-main calendars events args)
(define date (drop-time (current-date)))
(statprof
(lambda ()
(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))))))
|