deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

(mkdoc) allow internal [[TOC]] again

Browse source
This commit is contained in:
Sitaram Chamarty 2012-04-08 07:25:24 +05:30
parent 55e9b47bd1
commit 7858beb541
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
doc/mkdoc
View file

@ -43,7 +43,7 @@ sub main {
my @save = @ARGV; my @save = @ARGV;
my $css = join("", <DATA>); my $css = join("", <DATA>);
my $mt = "# gitolite master table of contents/index\n"; my %ct; # chapter tocs
my $mf = ''; my $mf = '';
my $fh; my $fh;
@ -53,18 +53,18 @@ sub main {
if (/^(#+) (?:#(\S+) )?(.*)/) { if (/^(#+) (?:#(\S+) )?(.*)/) {
if ( length($1) == 1 ) { if ( length($1) == 1 ) {
$mt .= "\n"; $ct{$b} .= "\n";
$mt .= " * [$3][$b]\n"; $ct{$b} .= " * [$3][$b]\n";
$mf .= "[$b]: $b.html\n"; $mf .= "[$b]: $b.html\n";
} else { } else {
$mt .= " " x ( 4 * ( length($1) - 1 ) ); $ct{$b} .= " " x ( 4 * ( length($1) - 1 ) );
$mt .= " * "; $ct{$b} .= " * ";
$mt .= ( $ct{$b} .= (
$2 $2
? "[$3][$2]" ? "[$3][$2]"
: "$3" : "$3"
); );
$mt .= "\n"; $ct{$b} .= "\n";
$mf .= "[$2]: $b.html" . ($2 ne $b ? "#$2" : "") . "\n" if $2; $mf .= "[$2]: $b.html" . ($2 ne $b ? "#$2" : "") . "\n" if $2;
} }
} }
@ -89,6 +89,7 @@ sub main {
my $mkt = `cat $mkd`; my $mkt = `cat $mkd`;
$mkt =~ s/^(#+) #(\S+) /$1 <a name="$2"><\/a> /mg; $mkt =~ s/^(#+) #(\S+) /$1 <a name="$2"><\/a> /mg;
$mkt =~ s/^\[\[TOC\]\]/$ct{$b}/mg;
open($fh, "|-", "$MKD >> ../html/$b.html") open($fh, "|-", "$MKD >> ../html/$b.html")
and print $fh $mkt, "\n\n", $mf and print $fh $mkt, "\n\n", $mf
and close $fh; and close $fh;