package Iotta::Format::Out::HTML;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
	my $s = shift;
	my $m = shift;
	my $in = shift;
	print "  formatting as html...\n";
	$_ = $in;
	s/<iotta-ifmt>//;
	s/<\/iotta-ifmt>//;
	s/<text[ \t\n]+class="(.*?)">/<span class="$1">/g;
	s/<par[ \t\n]+class="(.*?)">/<div class="$1">/g;
	s/<link[ \t\n]+ref="(.*?)">/<a href="$1">/g;
	s/<par>/<div>/g;
	s/<\/par>/<\/div>/g;
	s/<\/text>/<\/span>/g;
	s/<\/link>/<\/a>/g;
	$s->next->run ($m, $_) if ($s->next);
}

sub setup {
	my $self = shift;
	my $o = shift;
}

sub initialize {
	my $self = shift;
	$self->SUPER::initialize (@_);
}
1;