greg/machi
1
0
Fork 0
Code Issues 11 Pull requests 1 Projects Releases Packages Wiki Activity Actions

Tweak make-faq.pl

Browse source
This commit is contained in:
Scott Lystig Fritchie 2016-01-29 15:10:00 +09:00
parent 3b82dc2e38
commit 2fddf2ec2d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
priv/make-faq.pl
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;