diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-04 20:18:55 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-04 20:18:55 -0700 |
| commit | 6e56bf32cca9f2b6b67de3c6c640d4dfa33b5197 (patch) | |
| tree | 29e1a3d7b23e1d4cdeb7b95bc75e71a0ac7e7c4a | |
| parent | 033d558a10993d99b91e11e5f500f30adcb10aec (diff) | |
| download | mu-6e56bf32cca9f2b6b67de3c6c640d4dfa33b5197.tar.gz | |
93 - new project: a text-mode editor
New planet racket dependency: neil/charterm:3:1
| -rw-r--r-- | mu.arc | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 563c3d68..1fc2c39b 100644 --- a/mu.arc +++ b/mu.arc @@ -196,6 +196,8 @@ (if (~empty context) (enq context contexts*)))))) +($:require "charterm/main.rkt") + (def run-for-time-slice (context time-slice) ;? (prn "AAA") (point return @@ -428,3 +430,18 @@ (map add-fns:readfile it) (run 'main) (prn memory*)) + +($:with-charterm + (charterm-clear-screen) + (charterm-cursor 10 5) + (charterm-display "Hello, ") + (charterm-bold) + (charterm-display "you") + (charterm-normal) + (charterm-display ".") + (charterm-cursor 1 1) + (charterm-display "Press a key...") + (let ((key (charterm-read-key))) + (charterm-cursor 1 1) + (charterm-clear-line) + (printf "You pressed: ~S\r\n" key))) |