bin/post-process-html5

   1 #! /usr/bin/perl
   2
   3 use strict;
   4
   5 while ( <STDIN> ) {
   6     s/<h(\d)/"<h".($1 + 1)/eg;
   7     s/<\/h(\d)/"<\/h".($1 + 1)/eg;
   8
   9     # This is for OpenSSL's CHANGES.md
  10     my $gfmid = sub {
  11         my $x = lc $_[0];
  12         $x =~ s/\s+/-/g;
  13         $x =~ s/\.//g;
  14         $x
  15     };
  16     s/(<h3)(>)(OpenSSL .*?)(<\/h3>)/$1.' id="'.$gfmid->($3).'"'.$2.$3.$4/eg;
  17     print;
  18 }