--- trunk/lib/Frey/SVK.pm	2008/11/24 15:33:00	485
+++ trunk/lib/Frey/SVK.pm	2008/11/24 21:31:54	498
@@ -1,6 +1,8 @@
 package Frey::SVK;
 use Moose;
 
+with 'Frey::Escape';
+
 sub modified {
 	my ($self) = @_;
 	my @modified;
@@ -19,4 +21,20 @@
 	}
 }
 
+sub as_markup {
+	my ($self) = @_;
+
+	my $status = `svk status -q`;
+	my $diff   = `svk diff`;
+
+	my $html 
+		= qq|<pre>$status</pre><hr><pre>|
+		. $self->html_escape( $diff )
+		. qq|</pre>|
+		;
+	warn "diff ",length($html)," bytes";
+
+	return $html;
+}
+
 1;