--- trunk/lib/Frey/SVK.pm	2008/12/16 21:01:53	863
+++ trunk/lib/Frey/SVK.pm	2009/06/30 15:10:55	1133
@@ -2,8 +2,7 @@
 use Moose;
 
 extends 'Frey';
-with 'Frey::Web';
-with 'Frey::Path';
+with 'Frey::Web', 'Frey::Path', 'Frey::HTML::Diff';
 
 use Moose::Util::TypeConstraints;
 
@@ -111,26 +110,14 @@
 	my $diff   = `svk diff`;
 	$self->add_status( diff => $diff );
 
-	$diff = $self->html_escape( $diff );
-	$self->add_css( qq|
-	pre span.add,
-	pre span.del {
-		float: left;
-		width: 100%;
-	}
-	pre span.add { background: #dfd }
-	pre span.del { background: #fdd }
-	pre form.inline { display: inline }
-	| );
-	$diff =~ s{^(\+.*?)$}{<span class="add">$1</span>}gm;
-	$diff =~ s{^(\-.*?)$}{<span class="del">$1</span>}gm;
+	$diff = $self->html_diff( $diff );
+
 	sub form {
 		my ( $path, $action ) = @_;
 		qq|<form class="inline" method="post"><input type="hidden" name="path" value="$path"><input type="submit" name="action" value="$action"></form>|;
 	};
 	$diff =~ s{^(===\s+)(\S+)$}{$1 . form($2,'revert') . qq| <a name="$2" target="editor" href="/editor+$2+1">$2</a> | . form($2,'postpone') }gem;
 
-	$diff = qq|<pre>$diff</pre>| if $diff;
 	warn "diff_as_markup ",length($diff)," bytes";
 	return $diff;
 }
@@ -194,4 +181,8 @@
 	return $html;
 }
 
+__PACKAGE__->meta->make_immutable;
+no Moose;
+no Moose::Util::TypeConstraints;
+
 1;