--- trunk/lib/Frey/SVN.pm	2008/12/11 00:27:19	807
+++ trunk/lib/Frey/SVN.pm	2009/01/02 16:56:42	909
@@ -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,31 @@
 	}
 
 	our $html = '';
-	sub html {
-		$html .= join("\n", @_);
-	}
+
+	$self->add_css(qq|
+		.commit {
+			clear: both;
+			padding-top: 1em;
+			padding-bottom: 1em;
+			border-top: 1px dashed #ccc;
+		}
+		.files {
+			color: #888;
+			font-family: monospace;
+			font-size: 80%;
+			float: right;
+			padding-bottom: 1.2em; /* fix 80% back to original 1em */
+		}
+		.date, .revision { color: #666; }
+		.message {
+			padding-top: 0.5em;
+			padding-left: 2em; /* like blockquote */
+			white-space: pre-wrap;
+		}
+
+		ins { color: #8c8 }
+		del { color: #c88 }
+	|);
 
 	$self->iterator( sub {
 		my $e = shift;
@@ -129,7 +151,12 @@
 		$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>';
+		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;
 
@@ -140,12 +167,20 @@
 				push @files, "<ins>$path</ins>";
 			} elsif ($action eq "D") {
 				push @files, "<del>$path</del>";
-			} else{
+			} else {
 				push @files, $path;
 			}
 		}
 
-		html '<blockquote><p><tt style="color:#808080">',join(", ",@files),':</tt> ',encode($e->{'msg'}),'</p></blockquote>';
+		$html .= qq|
+			<div class="commit">
+			<span class="date">$date</span>
+			<em>$e->{author}</em>
+			<span class="revision">$e->{revision}</span>
+			<div class="files">\n| . join("<br>\n",@files) . qq|\n</div>
+			$msg
+			</div>
+		|;
 
 	});