diff options
Diffstat (limited to 'module/output/terminal.scm')
| -rw-r--r-- | module/output/terminal.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 47367095..ddd5df9b 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -8,6 +8,7 @@ #:use-module (srfi srfi-41) #:use-module (srfi srfi-41 util) #:use-module (util) + #:use-module (util app) #:use-module (vulgar) #:use-module (vulgar info) #:use-module (vulgar color) @@ -69,7 +70,10 @@ (define (displayln a) (display a) (newline)) -(define (main-loop date event-stream) +(define-method (main-loop date) + + (define event-stream (getf 'event-set)) + (define cur-event 0) (define-values (height width) (get-terminal-size)) |