--- trunk/lib/Frey/SVN.pm 2009/04/28 16:38:18 1071 +++ trunk/lib/Frey/SVN.pm 2009/04/28 17:04:24 1072 @@ -252,7 +252,12 @@ my $diff = $self->html_diff( $e->{diff} ) if $e->{diff}; - $html .= $self->dump( $e->{diff_paths} ); + $self->add_css(qq| + .diff-lines { + margin-left: 1em; + float: right; + } + |); $html .= qq|
@@ -265,7 +270,24 @@ map { my $path = $_; $path =~ s{<[^>]+>}{}g; - qq|$_| + my $diff = ''; + if ( $diff = $e->{diff_paths}->{$path} ) { + $diff + = qq|| + . join(" ", + map { + my $v = $diff->{$_}; + s[added][+$v]; + s[removed][-$v]; + $_; + } keys %$diff + ) + . qq|| + ; + warn "DIFF $diff"; + } + + qq|$diff$_| } @files ) . qq|