--- trunk/lib/SourceSnoop.pm	2008/09/13 14:19:04	186
+++ trunk/lib/SourceSnoop.pm	2008/09/13 16:59:07	188
@@ -15,7 +15,13 @@
 sub pre_dump {
 	my $o = shift;
 	# because Data::Dumper::HTML sucks
-	my $t = $o->dump; $t =~ s/ {8}/  /gm;
+	my $t;
+	if ( blessed($o) && $o->can('dump') ) {
+		$t = $o->dump;
+		$t =~ s/ {8}/  /gm;
+	} else {
+		$t = dump( $o );
+	}
 	return "<pre>$t</pre>";
 }
 
@@ -41,14 +47,30 @@
 	$request->print( $self->page( title => $path, body => $html ) );
 	$request->next;
 
-	my %param = $request->params;
+	%param = $request->params;
 	warn "## params = ",dump( %param );
 
 	my $project = $repo->get_project( name => $param{name} );
+	my $rev = $project->head_revision;
+
+	my $commit = $project->get_commit( revision => $rev );
+
+	sub div {
+		my ( $class, $text ) = @_;
+		return "<div class=\"$class\">$text</div>";
+	}
+
+	my $body =
+		'<h1>Commit</h1>' .
+		div( 'revision', $commit->revision ) .
+		div( 'commiter', $commit->committer ) .
+		div( 'date',     $commit->time->iso8601 ) .
+		div( 'message',  $commit->message ) .
+		'<pre>' . $commit->as_diff->raw . '</pre>';
 
 	$request->print( $self->page(
-		title => $path . '/' . $project->name ,
-		body => pre_dump( $project )
+		title => $path . '/' . $project->name,
+		body => $body,
 	) );
 	$request->next;
 }