diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-06-01 21:56:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-06-01 21:56:58 +0200 |
| commit | b0d552ffe3e336606de907897181a0f0718b3149 (patch) | |
| tree | f08d02b8bdead2106f1ca2377cd422f3694e3aa2 /module/output/terminal.scm | |
| parent | Rename {terminal => vulgar}. (diff) | |
| download | calp-b0d552ffe3e336606de907897181a0f0718b3149.tar.gz calp-b0d552ffe3e336606de907897181a0f0718b3149.tar.xz | |
Reword terminal output to better modularization.
Diffstat (limited to '')
| -rw-r--r-- | module/output/terminal.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 1225f335..67548537 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -8,8 +8,10 @@ #:use-module (srfi srfi-41) #:use-module (srfi srfi-41 util) #:use-module (util) - #:use-module (vulgar escape) - #:use-module (vulgar util) + #:use-module (vulgar) + #:use-module (vulgar info) + #:use-module (vulgar color) + #:use-module (vulgar components) #:use-module (vcomponent output) #:use-module (vcomponent group) @@ -142,7 +144,7 @@ ((#\G) (set! cur-event (1- (length events))))) (when (or (eof-object? char) - (memv char (list #\q (ctrl #\C)))) + (memv char '(#\q))) (break))) )))) |