93 - new project: a text-mode editor

New planet racket dependency: neil/charterm:3:1

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)))