diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 17:32:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 17:32:48 +0200 |
| commit | 396f288a9fb1fd3e76f8829ae97def94d8845ef7 (patch) | |
| tree | 3f920d9adf4dfd175e01a5b4a6a6c37e94bd39ad /module/output/terminal.scm | |
| parent | Add support for future code tag. (diff) | |
| download | calp-396f288a9fb1fd3e76f8829ae97def94d8845ef7.tar.gz calp-396f288a9fb1fd3e76f8829ae97def94d8845ef7.tar.xz | |
Repair term + add --help.
Diffstat (limited to '')
| -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)) |