196b41e0fd
people will NOT read documentation, especially the bloody install documentation. I'm about ready to throw in the towel and declare gitolite unsupported, take-it-or-leave-it. But I'm making one last attempt to refocus the install doc to better suit the "I know I'm very smart and I dont have to read docs so it's clearly your fault that I am not able to install gitolite" crowd. As a bonus, though, I ended up making proper, hyper-linked, TOCs for most of the docs, and moved a whole bunch of stuff around. Also finally got some of the ssh stuff over from my git-notes repo because it really belongs here.
29 lines
516 B
Perl
Executable file
29 lines
516 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# filter gitolite's mkd files through this; it's designed to be idempotent of
|
|
# course
|
|
|
|
undef $/;
|
|
$doc = <>;
|
|
|
|
$doc =~ s/^<a name="A\d+"><\/a>\n\n//mg;
|
|
|
|
@toc = $doc =~ /^###.*/mg;
|
|
$i = 0;
|
|
$doc =~ s/^###/$i++; "<a name=\"A$i\"><\/a>\n\n###"/mge;
|
|
|
|
$i = 0;
|
|
for (@toc) {
|
|
$i++;
|
|
s/### (.*)/ * <a href="#A$i">$1<\/a>/;
|
|
s/^(#+)/' ' x length($1)/e;
|
|
}
|
|
|
|
$toc = "In this document:\n\n";
|
|
$toc .= join("\n", @toc);
|
|
$toc .= "\n\n";
|
|
|
|
$doc =~ s/^In this document:\n\n.*?\n\n/$toc/sm;
|
|
|
|
print $doc;
|