--- trunk/lib/Frey/SVN.pm 2009/01/24 19:21:14 1012
+++ trunk/lib/Frey/SVN.pm 2009/01/24 19:35:41 1013
@@ -157,6 +157,9 @@
del { color: #c88 }
|);
+ my $max_path_len = 0;
+ my $path_count;
+
$self->iterator( sub {
my $e = shift;
@@ -185,6 +188,9 @@
} else {
push @files, $path;
}
+
+ $max_path_len = length $path if length $path > $max_path_len;
+ $path_count->{$path}++;
}
$html .= qq|
@@ -196,7 +202,9 @@
|
. join("
\n",
map {
- qq|$_|
+ my $path = $_;
+ $path =~ s{<[^>]+>}{}g;
+ qq|$_|
} @files
)
. qq|
@@ -207,6 +215,14 @@
});
+ $self->add_css(qq|
+ .files {
+ width: ${max_path_len}ex;
+ }
+ |);
+
+ $html =~ s[title="(\S+) ##"]['title="' . $path_count->{$1} . '"']gse;
+
return $html;
}