commit 43c495831ae61bfdbd1a4bc2a05311a1da8a56d2
from: Omar Polo <op@omarpolo.com>
date: Sat Aug 27 06:55:20 2022 UTC

fix prev link generation and move some code to nav

commit - d18a077f45df8f8153c0196219205ecbe0486706
commit + 43c495831ae61bfdbd1a4bc2a05311a1da8a56d2
blob - 85c6e0f463b3f45f518c7f82d3f736b22a82ca09
blob + 726ea938aef79b64287c7ce3e73ee709d0e4e77a
--- mkindex
+++ mkindex
@@ -59,7 +59,8 @@ sub nextfile {
 }
 
 sub nav {
-	my ($pfh, $first, $last, $n) = @_;
+	my ($pfh, $n) = @_;
+	my ($first, $last) = (pagename(1), pagename($page));
 	my ($next, $prev) = (pagename($n+1), pagename($n-1));
 
 	say $pfh "<nav class='next-prev'>";
@@ -82,8 +83,6 @@ sub copyfrom {
 sub fixfiles {
 	close($pfh);
 
-	my ($first, $last) = (pagename(0), pagename($page));
-
 	for (my $i = 1; $i <= $page; $i++) {
 		my $path = pagename($i);
 		my $dest = "$outdir/$path";
@@ -111,9 +110,9 @@ sub fixfiles {
 EOF
 		say $pfh $hdr;
 
-		nav $pfh, $first, $last, $i if $page > 1;
+		nav $pfh, $i if $page > 1;
 		copyfrom($path, $pfh);
-		nav $pfh, $first, $last, $i if $page > 1;
+		nav $pfh, $i if $page > 1;
 
 		say $pfh "</main>";