--- trunk/lib/Frey/SVN.pm	2008/12/15 20:10:48	851
+++ trunk/lib/Frey/SVN.pm	2008/12/15 20:36:12	852
@@ -116,9 +116,15 @@
 	}
 
 	our $html = '';
-	sub html {
-		$html .= join("\n", @_);
-	}
+
+	$self->add_css(qq|
+		.files { color: #888; }
+		.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>|;
+
+		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>$msg<div class="files">| . join(", ",@files) . qq|<div></blockquote>|;
 
 	});