package Iotta::Format::In::Daylog;
require Iotta::Elem;
@ISA = ("Iotta::Elem");

sub run {
	my $s = shift;
	my $m = shift;
	my $in = shift;
	my $out;
	print "  parsing daylog format...\n";
	$_ = $in;
	s/&/&/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	#my @sects = split /\n\n/, $in;
	$out = "<iotta-ifmt>\n";
	s/^\n+//s;
	while (s/^T (.*?)\n//s) {
		$out .= "\t<par>\n\t\t<text class=\"log-time\">$1</text>\n";
		my $t = 1;
		while (s/^E (.*?)\n//s) {
			$out .= "\t<par>\n\t\t<text class=\"log-time\">"
				."&nbsp;&nbsp;&nbsp;&nbsp;</text>\n" unless ($t);
			$t = 0;
			$out .= "\t\t<text class=\"log-entry\">$1\n";
			while (s/^A (.*?)\n//s) {
				$out .= "$1\n";
			}
			$out .= "</text><br />\n";
			s/^\n+//s;
			$out .= "</par>\n";
		}
		s/^\n+//s;
	}
	$out .= "</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;