--- trunk/lib/Frey/SVN.pm	2009/01/10 18:53:15	986
+++ trunk/lib/Frey/SVN.pm	2009/01/10 21:42:00	987
@@ -20,6 +20,11 @@
 	default => 'file:///home/dpavlin/private/svn/Frey',
 );
 
+has path => (
+	is => 'rw',
+	isa => 'Str'
+);
+
 has limit => (
 	is => 'rw',
 	isa => 'Int',
@@ -48,7 +53,7 @@
 		return;
 	}
 
-	my $path = $self->repository;
+	my $path = $self->repository . $self->path;
 	warn "# path $path\n";
 
 	my $cmd;
@@ -115,7 +120,13 @@
 		return $foo;
 	}
 
-	our $html = qq|<h1>| . $self->repository . qq|</h1>|;
+	my $repository = $self->repository;
+	my $path = $self->path;
+
+	our $html = qq|
+		<h1><a href="?repository=$repository">$repository</a></h1>
+		<h2>$path</h2>
+	|;
 
 	$self->add_css(qq|
 		.commit {
@@ -131,6 +142,10 @@
 			float: right;
 			padding-bottom: 1.2em; /* fix 80% back to original 1em */
 		}
+		.files a {
+			text-decoration: none;
+			color: #888;
+		}
 		.date, .revision { color: #666; }
 		.message {
 			padding-top: 0.5em;
@@ -174,11 +189,19 @@
 
 		$html .= qq|
 			<div class="commit">
-			<span class="date">$date</span>
-			<em>$e->{author}</em>
-			<span class="revision">$e->{revision}</span>
-			<div class="files">\n| . join("<br>\n",@files) . qq|\n</div>
-			$msg
+				<span class="date">$date</span>
+				<em>$e->{author}</em>
+				<span class="revision">$e->{revision}</span>
+				<div class="files">\n
+				|
+				. join("<br>\n",
+					map {
+						qq|<a href="?repository=$repository;path=$_">$_</a>|
+					} @files
+				)
+				. qq|
+				</div>
+				$msg
 			</div>
 		|;