Be able to override the autodetected repo name

[catagits/Gitalist.git] / lib / Gitalist / Git / CollectionOfRepositories / FromDirectoryRecursive.pm

diff --git a/lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm b/lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm
index cba9de4..fc17eed 100644 (file)
--- a/lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm
+++ b/lib/Gitalist/Git/CollectionOfRepositories/FromDirectoryRecursive.pm
@@ -33,10 +33,15 @@ class Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive
       return $repo->path;
     }
 
+    method _get_repo_name (NonEmptySimpleStr $name) {
+        # strip off the repo_dir part from a path
+               return Path::Class::Dir->new($name)->relative($self->repo_dir)->stringify;
+    }
+
     ## Builders
     method _build_repositories {
       return [
-        map Gitalist::Git::Repository->new($_), $self->_find_repos( $self->repo_dir )
+        map { Gitalist::Git::Repository->new($_, $self->_get_repo_name("$_")) } $self->_find_repos( $self->repo_dir )
       ];
     }
 }                         # end class