27 lines
534 B
Racket
27 lines
534 B
Racket
#lang racket/base
|
|
(require racket/list
|
|
racket/format
|
|
racket/match
|
|
lux
|
|
raart)
|
|
|
|
(define (key)
|
|
(define base (word #:fps 0.0 #:label "Key Debug" #:return (void)))
|
|
|
|
(define (show-key k)
|
|
(word base
|
|
#:output (text (~a k))
|
|
#:event
|
|
(match-lambda
|
|
[(or "C-C" "q") #f]
|
|
[x (show-key x)])))
|
|
|
|
(show-key "Please enter a key."))
|
|
|
|
(module+ main
|
|
(require raart/lux-chaos)
|
|
(call-with-chaos
|
|
(make-raart)
|
|
(λ ()
|
|
(fiat-lux (key)))))
|