about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-12 10:27:28 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-12 10:38:56 -0800
commita1f2f613305cf0da4c1e73c40c1281766ee45a08 (patch)
tree4ab552def5a36cf727bf3d7edb625294370de29b
parent97dd2c654f727f38ca5d15798540286913988662 (diff)
downloadmu-a1f2f613305cf0da4c1e73c40c1281766ee45a08.tar.gz
544 - text modes now called 'retro' & 'cursor'
Other options considered for 'retro':

'teletype': perhaps most accurate, but arcane
'chat': captures that you have to hit 'enter', but not the rendering
'wrap': captures the auto-wrap when printing text but not that you have
to hit 'enter' when typing
'text': useful as a synonym of 'chat' while conveying more information
in other meanings, but too generic, nobody will get it

Why do the input and output options have to be entangled like this?
-rw-r--r--chessboard-cursor.mu (renamed from chessboard-rawterm.mu)3
-rw-r--r--chessboard-retro.mu (renamed from chessboard.mu)0
-rw-r--r--mu.arc4
-rw-r--r--stdin.mu2
4 files changed, 4 insertions, 5 deletions
diff --git a/chessboard-rawterm.mu b/chessboard-cursor.mu
index fdb17dcb..c4f19c40 100644
--- a/chessboard-rawterm.mu
+++ b/chessboard-cursor.mu
@@ -189,7 +189,7 @@
 (function main [
   (default-space:space-address <- new space:literal 30:literal)
   (b:board-address <- read-board)
-  (console-on)
+  (cursor-mode)
   { begin
     (clear-screen)
     (print-primitive (("Stupid text-mode chessboard. White pieces in uppercase; black pieces in lowercase. No checking for legal moves." literal)))
@@ -208,7 +208,6 @@
     (loop)
   }
   (cursor-to-next-line)
-  (console-off)
 ])
 
 ; tests todo:
diff --git a/chessboard.mu b/chessboard-retro.mu
index e9fbd101..e9fbd101 100644
--- a/chessboard.mu
+++ b/chessboard-retro.mu
diff --git a/mu.arc b/mu.arc
index f8277029..ac186e8f 100644
--- a/mu.arc
+++ b/mu.arc
@@ -671,9 +671,9 @@
                   (do1 nil ($.charterm-bold))
                 non-bold-mode
                   (do1 nil ($.charterm-normal))
-                console-on
+                cursor-mode
                   (do1 nil (if (no ($.current-charterm)) ($.open-charterm)))
-                console-off
+                retro-mode
                   (do1 nil (if ($.current-charterm) ($.close-charterm)))
 
                 ; graphics
diff --git a/stdin.mu b/stdin.mu
index b1905d2b..b5362f5b 100644
--- a/stdin.mu
+++ b/stdin.mu
@@ -1,6 +1,6 @@
 (function main [
   (default-space:space-address <- new space:literal 30:literal)
-  (console-on)
+  (cursor-mode)
   (clear-screen)
   ; hook up stdin
   (stdin:channel-address <- init-channel 1:literal)