From 6e56bf32cca9f2b6b67de3c6c640d4dfa33b5197 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 4 Oct 2014 20:18:55 -0700
Subject: 93 - new project: a text-mode editor

New planet racket dependency: neil/charterm:3:1
---
 mu.arc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

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)))
-- 
cgit 1.4.1-2-gfad0