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))))))