mkpres.p6

#!/usr/local/bin/pugs

use mkpres--Perl5;

my $file = 'talk.xml';

my $mkpres = mkpres.new();

say "Getting XML from $file";
my $root = $mkpres.get_xmldoc($file);

say "Got $root?";

say "Generating Title Page";
$mkpres.gen_title_page($root);
say "Generating Contents Page";
$mkpres.gen_contents_page($root);
say "Generating Slides";
$mkpres.gen_slides($root);
say "Generating Notes";
$mkpres.gen_notes($root);

exit;