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

(mkdoc) make it do a little more post-mkdoc work

Browse source
This commit is contained in:
Sitaram Chamarty 2012-03-26 05:24:21 +05:30
parent cf10f7933c
commit 5d1adc63c2
1 changed files with 75 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
doc/mkdoc
View file

@ -7,17 +7,45 @@ my $MKD = "./Markdown.pl";
use 5.10.0;
use strict;
use warnings;
use lib '../src/Gitolite/Test';
use Tsh;
chomp(@ARGV = `cat list`) if not @ARGV;
@ARGV = grep { $_ ne 'master-toc.mkd' and /./ } @ARGV;
my @save = @ARGV;
my $css = join("", <DATA>);
$ENV{TSH_ERREXIT} = 1;
my $mt = "# gitolite master table of contents/index\n";
my $mf = '';
my $fh;
try "
mkdir ../html; ok
git status -s -uno; !/./
git log --oneline -1
" or die 1;
while (<>) {
my $head = (lines())[0];
main();
try "
git checkout gh-pages; ok
git reset --hard github/gh-pages; ok
cd ..; ok
git rm g3/*.html; ok
mkdir g3; ok
mv html/*.html g3; ok
git add g3; ok
git commit -m '$head'; ok
git checkout g3; ok
rmdir html; ok
" or die 2;
sub main {
chomp(@ARGV = `cat list`) if not @ARGV;
@ARGV = grep { $_ ne 'master-toc.mkd' and /./ } @ARGV;
my @save = @ARGV;
my $css = join("", <DATA>);
my $mt = "# gitolite master table of contents/index\n";
my $mf = '';
my $fh;
while (<>) {
$ARGV =~ /^(?:.*\/)?([^\/]+)\.mkd$/;
my $b = $1;
@ -38,18 +66,18 @@ while (<>) {
$mf .= "[$2]: $b.html" . ($2 ne $b ? "#$2" : "") . "\n" if $2;
}
}
}
}
open($fh, ">", "master-toc.mkd")
open($fh, ">", "master-toc.mkd")
and print $fh $mt
and close $fh;
# after this, do this for every mkd (including the master-toc.mkd)
# after this, do this for every mkd (including the master-toc.mkd)
# cat $css_block > $base.html
# cat $base.mkd $mf | $MKD >> $base.html
# cat $css_block > $base.html
# cat $base.mkd $mf | $MKD >> $base.html
for my $mkd ("master-toc.mkd", @save) {
for my $mkd ("master-toc.mkd", @save) {
$mkd =~ /^(?:.*\/)?([^\/]+)\.mkd$/;
my $b = $1;
@ -62,6 +90,7 @@ for my $mkd ("master-toc.mkd", @save) {
open($fh, "|-", "$MKD >> ../html/$b.html")
and print $fh $mkt, $mf
and close $fh;
}
}
__DATA__