From 93e6317c8d11bff74bb0fcf98cec126e74554800 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 7 May 2025 21:56:50 +0300
Subject: [PATCH] Include navigation anchors

---
 zk | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/zk b/zk
index 4a7f63c..a08f2ee 100755
--- a/zk
+++ b/zk
@@ -250,7 +250,7 @@ sub genHTML {
     close $fh;
     print $out "</pre>\n";
     if ($#lnks != -1) {
-        print $out "<table border=1><caption>Links</caption>\n";
+        print $out "<a id=\"links\"></a><table border=1><caption>Links</caption>\n";
         my $mtime;
         while (my ($i, $l) = each @lnks) {
             $mtime = (defined $mtimes{$l}) ? $mtimes{$l} : "";
@@ -261,7 +261,7 @@ sub genHTML {
     }
     @lnks = sort keys %{$backs{$page}};
     if ($#lnks != -1) {
-        print $out "<table border=1><caption>Backlinks</caption>\n";
+        print $out "<a id=\"backs\"></a><table border=1><caption>Backlinks</caption>\n";
         my $rel;
         foreach my $l (@lnks) {
             $rel = File::Spec->abs2rel($l, $page);
@@ -289,7 +289,7 @@ sub genIndex {
     print $out "</table>\n";
     @lnks = grep { /\/$/ } @lnks;
     if ($#lnks != -1) {
-        print $out "<table border=1><caption>Subcategories</caption>\n";
+        print $out "<a id=\"cats\"></a><table border=1><caption>Subcategories</caption>\n";
         foreach my $l (@lnks) {
             $l = substr $l, 0, -1;
             my $pth = ($page eq "") ? $l : "$page/$l";
@@ -302,7 +302,7 @@ sub genIndex {
     }
     @lnks = sort keys %{$backs{"$page/"}};
     if ($#lnks != -1) {
-        print $out "<table border=1><caption>Backlinks</caption>\n";
+        print $out "<a id=\"backs\"></a><table border=1><caption>Backlinks</caption>\n";
         my $rel;
         foreach my $l (@lnks) {
             $rel = File::Spec->abs2rel($l, $page);
-- 
2.48.1