Simply and fix reframe and introduce bounds checks for setcursor

1 files changed, 16 insertions, 0 deletions

diff --git a/cmd/il.ha b/cmd/il.ha
index afc1ee5..b6d1efb 100644
--- a/cmd/il.ha
+++ b/cmd/il.ha
@@ -61,6 +61,22 @@ export fn main() void = {
 		if (r == 'K') {
 			list::frameup(&li);
 		};
+		if (r == 'd') {
+			const nextpage = li.cursor + li.frame.end - li.frame.start;
+			fmt::errorln(nextpage)!;
+			list::setcursor(&li, nextpage);
+			fmt::errorln(li.frame.start)!;
+			fmt::errorln(li.frame.end)!;
+			fmt::errorln()!;
+		};
+		if (r == 'u') {
+			const prevpage = li.cursor - (li.frame.end - li.frame.start);
+			fmt::errorln(prevpage)!;
+			list::setcursor(&li, prevpage);
+			fmt::errorln(li.frame.start)!;
+			fmt::errorln(li.frame.end)!;
+			fmt::errorln()!;
+		};
 		if (r == 'g') {
 			list::top(&li);
 		};