diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-28 02:02:00 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-28 02:02:00 -0800 |
| commit | ec052a384072f18a219dfcc930e6881cb37767ad (patch) | |
| tree | 293b564d389f981e4f115661acf9fa53582a2673 | |
| parent | 563d367a22937ebb3f3ab7cef9d551d4257f1021 (diff) | |
| download | mu-ec052a384072f18a219dfcc930e6881cb37767ad.tar.gz | |
657 - progress with a better color library
(flush-output) does the trick as suggested in https://github.com/hopkinsr/terminal-color/issues/1
| -rw-r--r-- | x.rkt | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/x.rkt b/x.rkt index ef5ad28b..aecc714a 100644 --- a/x.rkt +++ b/x.rkt @@ -3,12 +3,8 @@ (open-charterm) (charterm-clear-screen) (charterm-cursor 5 5) -(displayln-color "Hello" #:fg 'green) ; works -(charterm-cursor 25 5) -(displayln-color " Hello" #:fg 'green) ; works -;? ;? (charterm-cursor 1 6) ;? 2 -;? ;? (display-color "Hello" #:fg 'green) ; err: cursor moves to start of line ;? 1 -;? (charterm-newline) ; doesn't work after display; somehow runs before it ;? 1 -;? ;? (charterm-clear-line) ;? 3 -;? (displayln-color "World" #:fg 'green) ;? 1 +(display-color "Hello" #:fg 'green) +(flush-output) +(charterm-newline) +(display-color "Hello" #:fg 'green) (close-charterm) |