Demo fancy output and raw input at the same time

test-raw.rkt

@@ -1,12 +1,17 @@
 #lang racket/base
 
 (require "tty-raw-extension")
+(require "ansi.rkt")
 
 (define (main)
   (tty-raw!)
   (let loop ()
     (define ch (read-byte))
-    (printf "Byte: ~v\015\012" ch)
+    (display (select-graphic-rendition ch))
+    (printf "Byte: ~v" ch)
+    (display (clear-to-eol))
+    (display "\015\012")
+    (display (select-graphic-rendition))
     ;;(flush-output)
     (if (member ch '(4 8 127)) ;; EOF, C-h, DEL
 	(exit)