Reduce heading sizes

1 files changed, 3 insertions, 0 deletions

diff --git a/help2man.html.PL b/help2man.html.PL
index e030296..79e276c 100755
--- a/help2man.html.PL
+++ b/help2man.html.PL
@@ -53,6 +53,9 @@ for ($body)
     s#<a\s+href="standards\.html#<a href="$gnu_standards#g;
     s#<a\s+href="\*manpages\*\.html\#perlre"
         #<a href="http://perldoc.perl.org/perlre.html"#xg;
+
+    # Drop heading sizes by one, as h1 is quite loud.
+    s#<(/?)h(\d)\b#"<${1}h" . ($2 + 1)#ge;
 }
 
 # Write output