--- trunk/lib/Frey/SVN.pm	2008/12/15 20:10:48	851
+++ trunk/lib/Frey/SVN.pm	2008/12/17 19:40:31	875
@@ -91,7 +91,7 @@
 	my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]);
 
 	foreach my $e (@{$xml->{'logentry'}}) {
-		warn "# e = ",$self->dump( $e );
+		warn "# e = ",$self->dump( $e ) if $self->debug;
 		$coderef->($e);
 	}
 }
@@ -108,7 +108,7 @@
 		$foo =~ s/</&lt;/g;
 		$foo =~ s/>/&gt;/g;
 		$foo =~ s/"/&quot;/g;
-		$foo =~ s/([\n\r][\n\r]+)/<\/p>$1<p>/gis;
+		$foo =~ s/([\n\r][\n\r]+)/$1<br\/>/gis;
 		$foo =~ s/([\n\r]+)([\-\*]\s+)/$1<br\/>$2/gis;
 		$foo =~ s/([\n\r]+)(r\d+:\s+)/$1<br\/>$2/gis;
 		$foo =~ s/([\n\r]+)(\s+r\d+@)/$1<br\/>$2/gis;		# svk
@@ -116,9 +116,15 @@
 	}
 
 	our $html = '';
-	sub html {
-		$html .= join("\n", @_);
-	}
+
+	$self->add_css(qq|
+		.files { color: #888; font-family: monospace; }
+		.date, .revision { color: #666; }
+		.message { padding-bottom: 0.5em; }
+
+		ins { color: #8c8 }
+		del { color: #c88 }
+	|);
 
 	$self->iterator( sub {
 		my $e = shift;
@@ -129,7 +135,14 @@
 		$date =~ s/T/ /;
 		$date =~ s/\.\d+Z$//;
 
-		html '<p><tt>'.$date.'</tt> <em>',$e->{'author'},'</em> <tt style="color:#808080">r',$e->{'revision'},'</tt></p>';
+		$html .= qq|<div><span class="date">$date</span> <em>$e->{author}</em> <span class="revision">$e->{revision}</span></div>\n|;
+
+		my $msg = $e->{'msg'};
+		$msg = '' if ref($msg); # FIXME why do I need this, dammit?
+		if ( $msg ) {
+			$msg = encode( $msg );
+			$msg = qq|<div class="message">$msg</div>|;
+		}
 
 		my @files;
 
@@ -145,11 +158,7 @@
 			}
 		}
 
-		my $msg = $e->{'msg'};
-		$msg = '' if ref($msg); # FIXME why do I need this, dammit?
-		$msg = encode( $msg );
-
-		html '<blockquote><p><tt style="color:#808080">',join(", ",@files),'</tt> ',$msg,'</p></blockquote>';
+		$html .= qq|<blockquote>\n$msg\n<div class="files">\n| . join(",\n",@files) . qq|\n</div>\n</blockquote>|;
 
 	});