--- 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; }