commit - d18a077f45df8f8153c0196219205ecbe0486706
commit + 43c495831ae61bfdbd1a4bc2a05311a1da8a56d2
blob - 85c6e0f463b3f45f518c7f82d3f736b22a82ca09
blob + 726ea938aef79b64287c7ce3e73ee709d0e4e77a
--- mkindex
+++ mkindex
}
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'>";
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";
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>";