upstream/608706-fix-spelling-errors.patch: to fix some spelling errors (Closes: 608706)

[software/mutt-debian.git] / doc / gen-map-doc

diff --git a/doc/gen-map-doc b/doc/gen-map-doc
index cafc68d10fd76f6e00feefb24ab649daa78b5886..ad7dd68315bbdee47dd7f0c37e0530aa77733561 100644 (file)
--- a/doc/gen-map-doc
+++ b/doc/gen-map-doc
@@ -49,17 +49,21 @@ open XML, $xml or die "$xml: $!";
 while (<XML>) {
   if (/__print_map\((.*)\)/) {
     my $map = $1;
 while (<XML>) {
   if (/__print_map\((.*)\)/) {
     my $map = $1;

+    my $maptitle = $1;
+    $maptitle =~ s/^(.)/\U$1\E/;

     unless ($MAP{$map}) {
       warn "map $map undefined";
       next;
     }
     unless ($MAP{$map}) {
       warn "map $map undefined";
       next;
     }

+    my $title = $map;
+    $title =~ s/(.)(.+)/\U$1\E$2/;

     print <<EOT;
     print <<EOT;

-<sect2 id="${map}_map">
-<title>$map menu</title>
+<sect2 id="${map}-map">
+<title>$maptitle Menu</title>

 $DOC{$map}
 
 $DOC{$map}
 

-<table id="${map}_table">
-<title>Default $map function bindings</title>
+<table id="tab-${map}-bindings">
+<title>Default $title Menu Bindings</title>

 <tgroup cols="3">
 <thead>
 <row><entry>Function</entry><entry>Default key</entry><entry>Description</entry></row>
 <tgroup cols="3">
 <thead>
 <row><entry>Function</entry><entry>Default key</entry><entry>Description</entry></row>


@@ -73,7 +77,7 @@ $MAP{$map}
 </sect2>
 
 EOT
 </sect2>
 
 EOT

-    delete $MAP{$1};
+    delete $MAP{$map};

   } else {
     print;
   }
   } else {
     print;
   }