#!/usr/bin/perl
$/="%\%slide";
%than=("<" => "<", ">" => ">" );
while(<>) {
my @HTML;
for (split(/\n+/,$_)) {
s/(<|>)/$than{$1}/g;
/^%%/ && next;
/^\s*$/ && next;
/^\*/ && do { push(@HTML,"",$_,"
"); next; };
/^ \-/ && do { push(@HTML,""); next; };
/^ \+/ &&
do { push(@HTML,""); next; };
/^\S/ && do { push(@HTML,"",$_,"
"); next; };
{ push(@HTML,"",$_,"\n
"); next; };
}
$slide++;
open(FH,">slide.${slide}.html") || die;
print FH "",@HTML,"";
close FH;
}