feature: added anchors to section headings.

Author: agentzh

utils/gen-html-index-en.pl

@@ -33,16 +33,17 @@
 $res .= "<ul>\n";
 for my $infile (@ARGV) {
     (my $base = $infile) =~ s{.*/|\.html$}{}g;
+    my $id = lc($base);
 
     if ($infile =~ /Foreword(\d+)/) {
         my $n = $1;
         if ($n eq '01') {
         $res .= <<_EOC_;
-    <li><a href="#$base">Foreword</a></li>
+    <li><a href="#$id">Foreword</a></li>
 _EOC_
         } elsif ($n eq '02') {
         $res .= <<_EOC_;
-    <li><a href="#$base">Writing Plan for the Tutorials</a></li>
+    <li><a href="#$id">Writing Plan for the Tutorials</a></li>
 _EOC_
         } else {
             die "unknown infile: $infile";
@@ -53,15 +54,15 @@
         my $n = $nums[$num];
         #$infile =~ s{.*/}{}g;
         $res .= <<_EOC_;
-    <li><a href="#$base">Nginx Variables ($n)</a></li>
+    <li><a href="#$id">Nginx Variables ($n)</a></li>
 _EOC_
 
     } elsif ($infile =~ /DirectiveExecOrder(\d+)/) {
         my $num = +$1;
         my $n = $nums[$num];
         #$infile =~ s{.*/}{}g;
         $res .= <<_EOC_;
-    <li><a href="#$base">Nginx Directive Execution Order ($n)</a></li>
+    <li><a href="#$id">Nginx Directive Execution Order ($n)</a></li>
 _EOC_
 
     } else {

utils/wiki2html-en.pl

@@ -110,22 +110,25 @@ sub fmt_para {
     my ($s, $ctx) = @_;
     if ($s =~ /^= (.*?) =$/) {
         my $title = $1;
+        my $id = quote_anchor($base);
         return <<"_EOC_";
-    <h1 id="$base">$title</h1>
+    <h1 id="$id">$title</h1>
 _EOC_
     }
 
     if ($s =~ /^== (.*?) ==$/) {
         my $title = $1;
+        my $id = quote_anchor("$base-$title");
         return <<"_EOC_";
-    <h2>$title</h2>
+    <h2 id="$id">$title</h2>
 _EOC_
     }
 
     if ($s =~ /^=== (.*?) ===$/) {
         my $title = $1;
+        my $id = quote_anchor("$base-$title");
         return <<"_EOC_";
-    <h2>$title</h2>
+    <h3 id="$id">$title</h3>
 _EOC_
     }
 
@@ -169,7 +172,7 @@ sub fmt_para {
                 }
 
                 $serial = sprintf("%02d", $serial);
-                my $base = "$serial-${chapter}01";
+                my $base = lc("$serial-${chapter}01");
                 $res .= qq{$indent<a href="#$base">$label</a>};
 
             } elsif ($label =~ m/(.*)\((\d{2})\)/) {
@@ -249,3 +252,17 @@ sub usage {
     die "Usage: $0 [-o <outfile>] <infile>\n";
 }
 
+sub quote_anchor {
+    my $id = shift;
+    for ($id) {
+        s/\$/dollar/g;
+        s/[^-\w.]/-/g;
+        s/--+/-/g;
+        s/^-+|-+$//g;
+        $_ = lc;
+    }
+
+    $id =~ s/^01-nginxvariables01-/nginx-variables-/;
+
+    return $id;
+}