Tweak make-faq.pl

This commit is contained in:
Scott Lystig Fritchie 2016-01-29 15:10:00 +09:00
parent 3b82dc2e38
commit 2fddf2ec2d

View file

@ -36,7 +36,7 @@ while (<I>) {
$indent = " " x ($count * 4); $indent = " " x ($count * 4);
s/^#*\s*[0-9. ]*//; s/^#*\s*[0-9. ]*//;
$anchor = "n$label"; $anchor = "n$label";
printf T1 "%s+ [%s %s](#%s)\n", $indent, $label, $_, $anchor; printf T1 "%s+ [%s. %s](#%s)\n", $indent, $label, $_, $anchor;
printf T2 "<a name=\"%s\">\n", $anchor; printf T2 "<a name=\"%s\">\n", $anchor;
$line =~ s/(#+)\s*[0-9. ]*/$1 $label. /; $line =~ s/(#+)\s*[0-9. ]*/$1 $label. /;
print T2 $line; print T2 $line;