misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test-modes.rkt, from Oct 29 2011.

This commit is contained in:
Tony Garnock-Jones 2013-03-20 11:14:43 -04:00
parent 80b2f1c70b
commit ef520fea8d
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
test-modes.rkt Normal file
View File

@ -0,0 +1,21 @@
#lang racket/base
(require "ansi.rkt")
(define (display* . vs)
(for-each display vs)
(flush-output))
(display* (dec-soft-terminal-reset)
(select-graphic-rendition style-bold
(style-text-color color-yellow)
(style-background-color color-blue))
(clear-screen/home))
(display* (reset-mode send/receive-mode))
(display (read-char))
(display (read-char))
(display (read-char))
(display* (dec-soft-terminal-reset))