Add list::setitems, sorting and decouple handlers from main.ha

1 files changed, 200 insertions, 0 deletions

diff --git a/handlers.ha b/handlers.ha
new file mode 100644
index 0000000..ef374ef
--- /dev/null
+++ b/handlers.ha
@@ -0,0 +1,200 @@
+use libui;
+use libui::widget;
+use libui::widget::list;
+use sort;
+use slices;
+use encoding::utf8;
+use fmt;
+use bufio;
+use os;
+use regex;
+use io;
+use strings;
+use unix::tty;
+
+let itemscopy: []str = [];
+
+fn globalrunehandler(ui: *libui::ttyui, r: rune) bool = {
+	if (r == 'q') {
+		return true;
+	};
+	return false;
+};
+
+fn runehandler(l: *widget::widget, r: rune) bool = {
+	const l = l: *list::listwidget;
+	switch (r) {
+	case 'j' =>
+		list::down(l);
+	case 'k' =>
+		list::up(l);
+	case 'd' =>
+		list::pagedown(l);
+	case 'u' =>
+		list::pageup(l);
+	case 'l' =>
+		// to print properly suspend the ui, print, then resume
+		libui::suspend(&l.ui);
+		//fmt::println(l.items[l.cursor])!;
+		match (list::selected(*l)) {
+		case let s: str =>
+			fmt::println(s)!;
+		case let s: []str =>
+			defer free(s);
+			const out = strings::join("\n", s...);
+			defer free(out);
+			fmt::println(out)!;
+		};
+		libui::resume(&l.ui);
+		return true;
+	case 'g' =>
+		list::top(l);
+	case 'G' =>
+		list::bottom(l);
+	case 'n' =>
+		if (searchforward) {
+			list::search(l, searchterm);
+		} else {
+			list::rsearch(l, searchterm);
+		};
+	case 'N' =>
+		if (searchforward) {
+			list::rsearch(l, searchterm);
+		} else {
+			list::search(l, searchterm);
+		};
+	case '?' =>
+		// TODO add commandline support maybe
+		libui::suspend(&l.ui);
+		fmt::fprint(l.ui.f, '?')!;
+		let line = match (bufio::scanline(l.ui.f)) {
+		case let s: []u8 =>
+			yield s;
+		case io::EOF =>
+			fmt::fprintln(os::stderr, "EOF")!;
+			return true;
+		case let e: io::error =>
+			fmt::fprintln(os::stderr, io::strerror(e))!;
+			return true;
+		};
+		//defer free(line);
+		searchterm = strings::fromutf8(line);
+		searchforward = false;
+		let c = l.cursor;
+		list::rsearch(l, searchterm);
+		libui::resume(&l.ui);
+	case '/' =>
+		// TODO add commandline support maybe
+		libui::suspend(&l.ui);
+		fmt::fprint(l.ui.f, '/')!;
+		let line = match (bufio::scanline(l.ui.f)) {
+		case let s: []u8 =>
+			yield s;
+		case io::EOF =>
+			fmt::fprintln(os::stderr, "EOF")!;
+			return true;
+		case let e: io::error =>
+			fmt::fprintln(os::stderr, io::strerror(e))!;
+			return true;
+		};
+		//defer free(line);
+		searchterm = strings::fromutf8(line);
+		searchforward = true;
+		let c = l.cursor;
+		list::search(l, searchterm);
+		libui::resume(&l.ui);
+	case 'o' =>
+		// order
+		sort::strings(l.items);
+	case 'O' =>
+		// reverse order
+		sort::strings(l.items);
+		slices::reverse(l.items: []void, size(str));
+	case 'p' =>
+		list::setitems(l, itemscopy...);
+	case 's' =>
+		// TODO add commandline support maybe
+		libui::suspend(&l.ui);
+		fmt::fprint(l.ui.f, "s: ")!;
+		let line = match (bufio::scanline(l.ui.f)) {
+		case let s: []u8 =>
+			yield s;
+		case io::EOF =>
+			fmt::fprintln(os::stderr, "EOF")!;
+			return true;
+		case let e: io::error =>
+			fmt::fprintln(os::stderr, io::strerror(e))!;
+			return true;
+		};
+		defer free(line);
+		list::containsmark(l, strings::fromutf8(line));
+		libui::resume(&l.ui);
+	case 'S' =>
+		// TODO add commandline support maybe
+		libui::suspend(&l.ui);
+		fmt::fprint(l.ui.f, "S: ")!;
+		let line = match (bufio::scanline(l.ui.f)) {
+		case let s: []u8 =>
+			yield s;
+		case io::EOF =>
+			fmt::fprintln(os::stderr, "EOF")!;
+			return true;
+		case let e: io::error =>
+			fmt::fprintln(os::stderr, io::strerror(e))!;
+			return true;
+		};
+		defer free(line);
+		list::fnmatchmark(l, strings::fromutf8(line));
+		libui::resume(&l.ui);
+	case 'r' =>
+		// TODO add commandline support maybe
+		libui::suspend(&l.ui);
+		fmt::fprint(l.ui.f, "r: ")!;
+		let line = match (bufio::scanline(l.ui.f)) {
+		case let s: []u8 =>
+			yield s;
+		case io::EOF =>
+			fmt::fprintln(os::stderr, "EOF")!;
+			return true;
+		case let e: io::error =>
+			fmt::fprintln(os::stderr, io::strerror(e))!;
+			return true;
+		};
+		defer free(line);
+		match (regex::compile(strings::fromutf8(line))) {
+		case let re: regex::regex =>
+			list::regexmark(l, &re);
+			regex::finish(&re);
+		case let e: regex::error =>
+			fmt::fprintln(os::stderr, regex::strerror(e))!;
+		};
+		libui::resume(&l.ui);
+	case ' ' =>
+		list::tmark(l);
+		list::down(l);
+	case 'c' =>
+		list::clearmarked(l);
+	case '\n' =>
+		// For some reason enter doesn't send r == '\n'
+		fmt::fprintln(os::stderr, "This is not detected")!;
+		yield;
+	case =>
+		let us = utf8::encoderune(r);
+		if (len(us) > 0 && us[0] == 13u8) {
+			fmt::fprintln(os::stderr, "newline")!;
+		};
+		yield;
+	};
+	libui::clear(l.ui);
+	match (list::print(l)) {
+	case void =>
+		yield;
+	case let e: io::error =>
+		fmt::fprintln(os::stderr, io::strerror(e))!;
+		return true;
+	case let e: tty::error =>
+		fmt::fprintln(os::stderr, tty::strerror(e))!;
+		return true;
+	};
+	return false;
+};