29 lines
661 B
Racket
29 lines
661 B
Racket
#lang racket/base
|
|
|
|
(require "tty-raw-extension")
|
|
(require "ansi.rkt")
|
|
|
|
(define (main)
|
|
(tty-raw!)
|
|
|
|
(define old-exit-handler (exit-handler))
|
|
(exit-handler (lambda (v)
|
|
(display (reset-mode x11-any-event-mouse-tracking-mode))
|
|
(old-exit-handler v)))
|
|
|
|
(for-each display (list (set-mode x11-any-event-mouse-tracking-mode)))
|
|
(flush-output)
|
|
|
|
(let loop ()
|
|
(define ch (read-byte))
|
|
(display (select-graphic-rendition ch))
|
|
(display (clear-to-eol))
|
|
(printf "Byte: ~v ~s\015\012" ch (integer->char ch))
|
|
(display (select-graphic-rendition))
|
|
;;(flush-output)
|
|
(if (member ch '(4 8 127)) ;; EOF, C-h, DEL
|
|
(exit)
|
|
(loop))))
|
|
|
|
(main)
|