Made none-output print statprof info.

2 files changed, 21 insertions, 1 deletions

diff --git a/module/main.scm b/module/main.scm
index 620e64fd..924a846c 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -16,6 +16,7 @@
 
              (output html)
              (output terminal)
+             (output none)
 
              (ice-9 getopt-long)
 
@@ -57,7 +58,7 @@
        (let ((ropt (ornull (option-ref opts '() '())
                            '("term"))))
          ((case (string->symbol (car ropt))
-            ((none) (compose display list))
+            ((none) none-main)
             ((html) html-main)
             ((term) terminal-main))
           c e ropt))))
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))))))