From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 7 May 2025 18:56:50 +0000 (+0300)
Subject: Include navigation anchors
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=93e6317c8d11bff74bb0fcf98cec126e74554800;p=zk.git

Include navigation anchors
---

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);