diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-12 10:27:28 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-12 10:38:56 -0800 |
commit | a1f2f613305cf0da4c1e73c40c1281766ee45a08 (patch) | |
tree | 4ab552def5a36cf727bf3d7edb625294370de29b | |
parent | 97dd2c654f727f38ca5d15798540286913988662 (diff) | |
download | mu-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.arc | 4 | ||||
-rw-r--r-- | stdin.mu | 2 |
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) |