Initial scrolllist and input support

1 files changed, 25 insertions, 1 deletions

diff --git a/tui/tui.ha b/tui/tui.ha
index 4f6c1d5..f6014a6 100644
--- a/tui/tui.ha
+++ b/tui/tui.ha
@@ -1,18 +1,41 @@
 use fmt;
 use io;
 use unix::tty;
+use errors;
+use encoding::utf8;
+use bufio;
 
 export type tui = struct {
 	out: io::file,
 	clear: bool,
+	tq: tty::termios,
 };
 
-export fn init() (tui | tty::error) = {
+export type skey = enum {
+	BS,
+};
+
+export type key = (skey | rune);
+
+export fn init() (tui | tty::error | errors::error) = {
 	const f = tty::open()?;
+	const tq = tty::termios_query(f)?;
+	tty::noncanonical(&tq)?;
 	doclear(f);
 	return tui {
 		out = f,
 		clear = false,
+		tq = tq,
+	};
+
+};
+
+export fn read(state: *tui) (key | utf8::invalid | io::error | io::EOF) = {
+	match (bufio::read_rune(state.out)?) {
+	case let r: rune =>
+		return r;
+	case io::EOF =>
+		return io::EOF;
 	};
 
 };
@@ -27,5 +50,6 @@ export fn clear(state: *tui) void = {
 };
 
 export fn finish(state: *tui) void = {
+	tty::termios_restore(&state.tq);
 	io::close(state.out)!;
 };