package Iotta::Format::In::TextPre;
use base Iotta::Elem;
use strict;

sub run {
	my $s = shift;
	my $m = shift;
	my $in = shift;
	my $out;
	my $mark = "!\@CONVENIENCE LINEBREAK - bo <br>\@!";
	print "  parsing text format...\n";
	$in =~ s/&/&amp;/g;
	$in =~ s/</&lt;/g;
	$in =~ s/>/&gt;/g;
	$in =~ s/\n+$//;
	$in =~ s/^((?:&nbsp;)*) /$1&nbsp;/gsm;
	$in =~ s/\n\n+/<\/p>$mark<p>/gsm;
	$in =~ s/\n/<br\/>$mark/gsm;
	$in =~ s/$mark/\n/gsm;
	$out = "<iotta-ifmt><p>$in</p></iotta-ifmt>\n";
	$s->next->run ($m, $out) if ($s->next);
}

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

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