diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-05 23:51:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-05 23:51:50 +0200 |
| commit | 1bc8f0c31fd94b3936fc13ed325ecd8308d73f87 (patch) | |
| tree | c9217c0daf92743b903685dd19eda1288c6ad9e6 /module/output/terminal.scm | |
| parent | HTML output seems to work in full now. (diff) | |
| download | calp-1bc8f0c31fd94b3936fc13ed325ecd8308d73f87.tar.gz calp-1bc8f0c31fd94b3936fc13ed325ecd8308d73f87.tar.xz | |
Fix day-stream, and in effect terminal output.
Diffstat (limited to 'module/output/terminal.scm')
| -rw-r--r-- | module/output/terminal.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index a2c5486e..37fe1b86 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -62,10 +62,12 @@ (define-values (height width) (get-terminal-size)) + (define grouped-stream (group-stream event-stream)) + (while #t ;; TODO reusing the same grouping causes it to lose events. ;; I currently have no idea why, but it's BAD. - (let ((groups (get-groups-between (group-stream event-stream) + (let ((groups (get-groups-between grouped-stream (time-utc->date time) (time-utc->date time)))) (format (current-error-port) "len(groups) = ~a~%" (stream-length groups)) (let ((events @@ -157,5 +159,6 @@ (let ((time (date->time-utc (drop-time (or (and=> (option-ref opts 'date #f) parse-freeform-date) (current-date)))))) + ;; (format (current-error-port) "len(events) = ~a~%" (stream-length events)) (with-vulgar (lambda () (main-loop time events)))))) |