From b0d552ffe3e336606de907897181a0f0718b3149 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 1 Jun 2019 21:56:52 +0200 Subject: Reword terminal output to better modularization. --- module/output/terminal.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'module/output/terminal.scm') 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))) )))) -- cgit v1.2.3