From 2b42704f68192fdd39de132bec862921b6d3fd8e Mon Sep 17 00:00:00 2001
From: Adlai Chandrasekhar <adlai.chandrasekhar@gmail.com>
Date: Tue, 11 Jun 2024 14:47:09 +0300
Subject: [PATCH] Fix bugs below 10 WPM

Fix #36

Before, lowering the WPM below 10 would make it only possible to
crash the program by lowering all the way to zero; now, the WPM is
capped above zero, rises by one until ten, and pauses when lowering
below one. It is reasonably intuitive and an edge case anyways.
---
 speedread | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/speedread b/speedread
index ecadbbc..7c99df9 100755
--- a/speedread
+++ b/speedread
@@ -162,11 +162,17 @@ sub process_keys {
 	while ($tty->key_pressed()) {
 		my $ch = $tty->getch();
 		if ($ch eq '[') {
-			$wpm = int($wpm * 0.9);
-
+			if ($wpm > 1) {
+				$wpm = int($wpm * 0.9);
+			} else {
+				$paused = 1;
+			}
 		} elsif ($ch eq ']') {
-			$wpm = int($wpm * 1.1);
-
+			if ($wpm >= 10) {
+				$wpm = int($wpm * 1.1);
+			} else {
+				$wpm += 1;
+			}
 		} elsif ($ch eq ' ') {
 			$paused = not $paused;
 			if ($paused) {
@@ -197,7 +203,7 @@ sub main {
 		my (@words) = grep { /./ } split /(?:-|\s)+/;
 
 		if ($multiword) {
-			# Join adjecent short words
+			# Join adjacent short words
 			for (my $i = 0; $i < $#words - 1; $i++) {
 				if (length($words[$i]) <= 3 and length($words[$i+1]) <= 3) {
 					$words[$i] .= ' ' . $words[$i+1];