Include navigation anchors

diff --git a/zk b/zk
index 4a7f63c27a59b872238366649ada39b7cfa96b95..a08f2ee9437be74f2a3fffe227986bbb0628a0b9 100755 (executable)
--- 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);