#!/usr/bin/env perl
use strict;
use warnings;
package Pod::Simple::HTMLBatch::Custom;
use base qw/Pod::Simple::HTMLBatch/;
use vars qw/$VERSION/;
$VERSION = '0.01';
sub esc {
return Pod::Simple::HTMLBatch::esc(@_);
}
sub new {
print "Hello!\n";
my $self = shift;
my $obj = $self->SUPER::new(@_);
$obj->css_flurry(0);
$obj->javascript_flurry(0);
my @index_header = ("\n",
"\n",
"Irssi Scripting Documentation\n",
"\n",
"Irssi Scripting Documentation
\n",
q(This is a work in progress. If you ),
q(find something obviously wrong, or have requests ),
q(for further documentation on topics not yet ),
q(filled out, please ),
q(create an issue),
" on my Github page, and I'll see what I can do.
",
);
$obj->contents_page_start(join("", @index_header));
my $index_footer = sprintf("\n\n\n\n\n",
esc(ref($obj), $VERSION,
$], scalar(gmtime), scalar(localtime)));
my @copyright = (
"Much of the content on these pages is taken",
" from original Irssi documentation, and is Copyright",
" © 2000-2010 The Irssi project.
",
" Formatting and additional documentation by Tom Feist",
" shabble+irssi\@metavore.org",
"
");
$obj->contents_page_end($index_footer . join("", @copyright));
return $obj;
}
sub _write_contents_middle {
my($self, $Contents, $outfile, $toplevel2submodules, $toplevel_form_freq) = @_;
foreach my $t (sort keys %$toplevel2submodules) {
my @downlines = sort {$a->[-1] cmp $b->[-1]}
@{ $toplevel2submodules->{$t} };
printf $Contents qq[%s\n\n],
esc( $t, $toplevel_form_freq->{$t} ) ;
my($path, $name);
foreach my $e (@downlines) {
$name = $e->[0];
$path = join( "/", '.', esc( @{$e->[3]} ) )
. ($POD::Simple::HTMLBatch::HTML_EXTENSION
|| $Pod::Simple::HTML::HTML_EXTENSION);
print $Contents qq{ }, esc($name), "
\n";
}
print $Contents "\n\n";
}
return 1;
}
1;
package main;
use File::Copy;
my $output_dir = "../../tmp/irssi/docs/";
my $batchconv = Pod::Simple::HTMLBatch::Custom->new;
my $css = 'podstyle.css';
$batchconv->add_css('podstyle.css', 1);
$batchconv->batch_convert([qw/./], $output_dir);
print "Copying CSS...\n";
copy($css, $output_dir . $css);
print "Done\n";