diff options
Diffstat (limited to '')
-rw-r--r-- | module/output/none.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/module/output/none.scm b/module/output/none.scm new file mode 100644 index 00000000..2380438b --- /dev/null +++ b/module/output/none.scm @@ -0,0 +1,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)))))) |