From 9f69c95646fc3eda25b5b614556257075febd7d6 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 28 Aug 2024 19:16:00 -0700
Subject: [PATCH] (m291) Follow cursor

---
 gui/m291/src/m291.tal | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 643fe99..2d037f9 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -214,7 +214,17 @@
 @<move> ( mod -- )
 	.selection LDZ ADD INCk ?{
 		POP count-lines #01 SUB !<select> }
-	count-lines DIVk MUL SUB
+	( | follow )
+	DUP .lines/folders LDZ SUB
+	( up ) DUP #80 LTH ?{
+		.selection/scroll LDZ ADD #80 LTH ?{ POP !<redraw-dir> }
+		.selection/scroll LDZk #01 SUB SWP STZ
+		POP !<redraw-dir> }
+	( down ) DUP #18 LTH ?{
+		.selection/scroll LDZ ADD .lines/tracks LDZ NEQ ?{ POP !<redraw-dir> }
+		.selection/scroll LDZk INC SWP STZ
+		POP !<redraw-dir> }
+	POP
 	( >> )
 
 @<select> ( id -- )