@@ -124,7 +124,6 @@ sub startup {

   # Repository home

   my $rep_home = $ENV{GITPREP_REP_HOME} || $self->home->rel_file('data/rep');

-  $git->rep_home($rep_home);

   unless (-d $rep_home) {

     mkdir $rep_home

       or croak "Can't create directory $rep_home: $!";

@@ -15,7 +15,6 @@ use Gitprep::Util;

 # Attributes

 has 'bin';

 has default_encoding => 'UTF-8';

-has 'rep_home';

 has text_exts => sub { ['txt'] };

 has 'time_zone_second';

 has 'app';

@@ -126,8 +125,7 @@ sub cmd_clone {

   my ($self, $user, $project) = @_;

   # Repository

-  my $home = $self->rep_home;

-  my $rep = "$home/$user/$project.git";

+  my $rep = $self->app->rep_path($user, $project);

   # Working directory

   my $working_dir = $self->app->home->rel_file("/data/work/$user/$project");

@@ -138,8 +136,7 @@ sub cmd {

   my ($self, $user, $project, @cmd) = @_;

   # Git command

-  my $home = $self->rep_home;

-  my $rep = "$home/$user/$project.git";

+  my $rep = $self->app->rep_path($user, $project);

   return $self->cmd_dir($rep, @cmd);

 }

@@ -568,7 +565,6 @@ sub exists_branch {

   my ($self, $user, $project) = @_;

   # Exists branch

-  my $home = $self->rep_home;

   my @cmd = $self->cmd($user, $project, 'branch');

   open my $fh, "-|", @cmd

     or croak 'git branch failed';

@@ -991,14 +987,6 @@ sub references {

   return \%refs;

 }

-sub rep {

-  my ($self, $user, $project) = @_;

-  

-  my $home = $self->rep_home;

-  

-  return "$home/$user/$project.git";

-}

-

 sub short_id {

   my ($self, $project) = (shift, shift);

@@ -657,7 +657,7 @@ sub _create_rep {

   # Create repository directory

   my $git = $self->app->git;

-  my $rep = $git->rep($user, $project);

+  my $rep = $self->app->rep_path($user, $project);

   mkdir $rep

     or croak "Can't create directory $rep: $!";

@@ -794,7 +794,7 @@ sub _create_user_dir {

   my ($self, $user) = @_;

   # Create user directory

-  my $rep_home = $self->app->git->rep_home;

+  my $rep_home = $self->app->rep_home;

   my $user_dir = "$rep_home/$user";

   mkpath $user_dir;

 }

@@ -812,7 +812,7 @@ sub _delete_user_dir {

   my ($self, $user) = @_;

   # Delete user directory

-  my $rep_home = $self->app->git->rep_home;

+  my $rep_home = $self->app->rep_home;

   my $user_dir = "$rep_home/$user";

   rmtree $user_dir;

 }

@@ -829,7 +829,7 @@ sub _delete_rep {

   my ($self, $user, $project) = @_;

   # Delete repository

-  my $rep_home = $self->app->git->rep_home;

+  my $rep_home = $self->app->rep_home;

   croak "Can't remove repository. repository home is empty"

     if !defined $rep_home || $rep_home eq '';

   my $rep = "$rep_home/$user/$project.git";

@@ -861,7 +861,7 @@ sub _exists_rep {

   my ($self, $user, $project) = @_;

   # Exists repository

-  my $rep = $self->app->git->rep($user, $project);

+  my $rep = $self->app->rep_path($user, $project);

   return -e $rep;

 }

@@ -871,8 +871,8 @@ sub _fork_rep {

   # Fork repository

   my $git = $self->app->git;

-  my $rep = $git->rep($user, $project);

-  my $to_rep = $git->rep($to_user, $to_project);

+  my $rep = $self->app->rep_path($user, $project);

+  my $to_rep = $self->app->rep_path($to_user, $to_project);

   my @cmd = (

     $git->bin,

     'clone',

@@ -912,8 +912,8 @@ sub _rename_rep {

     unless defined $user && defined $project && defined $renamed_project;

   # Rename repository

-  my $rep = $self->app->git->rep($user, $project);

-  my $renamed_rep = $self->app->git->rep($user, $renamed_project);

+  my $rep = $self->app->rep_path($user, $project);

+  my $renamed_rep = $self->app->rep_path($user, $renamed_project);

   move($rep, $renamed_rep)

     or croak "Can't move $rep to $renamed_rep: $!";

 }

@@ -18,7 +18,7 @@ my $session_user = shift;

 die "User not specifed" unless defined $session_user;

 # Application

-my $app = Gitprep->new;

+my $app = Mojo::Server->new->load_app("$FindBin::Bin/gitprep");

 # Git

 my $git = $app->git;

@@ -66,8 +66,8 @@ die qq|User "$session_user" can't access repository "$user/$project.git"\n|

   unless $can_access; 

 # Command

-my $rep_home = $git->rep_home;

-my $repository = "'$rep_home/$user/$project.git'";

+my $rep = $app->rep_path($user, $project);

+my $repository = "'$rep'";

 my @git_shell_cmd = ("git", "shell", "-c", "$verb $repository");

 warn "@git_shell_cmd" if $debug;

 unless ($debug) {

@@ -90,7 +90,7 @@ for my $rep (glob "$rep_dir/*") {

     # Push repository

     chdir $rep

       or warn "Can't change directory $rep: $!\n";

-    my $remote_rep = $git->rep($user, $project);

+    my $remote_rep = $app->rep_path($user, $project);

     # push branches

     {

@@ -14,7 +14,7 @@

     my $service_cmd = $service;

     substr($service_cmd, 0, 4, '');

-    my $rep = $git->rep($user, $project);

+    my $rep = app->rep_path($user, $project);

     my @cmd = $git->cmd($user, $project, $service_cmd, '--stateless-rpc', '--advertise-refs', $rep);

     my ($cout, $cerr) = (Symbol::gensym, Symbol::gensym);

@@ -65,8 +65,8 @@

       or die "Can't close pipe for @cmd:$!";

     my $content_type = 'text/plain; charset=UTF-8';

-    my $rep_home = app->git->rep_home;

-    my $file = "$rep_home/$user/$project.git/info/refs";

+    my $rep = app->rep_path($user, $project);

+    my $file = "$rep/info/refs";

     if (-f $file) {

       my $asset = Mojo::Asset::File->new(path => $file);

       my $content = $asset->slurp;

@@ -9,7 +9,7 @@

   my $git = app->git;

-  my $rep_dir = $git->rep($user, $project);

+  my $rep_dir = app->rep_path($user, $project);

   my @cmd = $git->cmd($user, $project, $service, '--stateless-rpc', $rep_dir);

   # Command

@@ -31,8 +31,8 @@

     $content_type = 'application/x-git-packed-objects-toc';

   }

-  my $rep_home = app->git->rep_home;

-  my $file = "$rep_home/$user/$project.git/$path";

+  my $rep = app->rep_path($user, $project);

+  my $file = "$rep/$path";

   if (-f $file) {

     my $asset = Mojo::Asset::File->new(path => $file);

     my $content = $asset->slurp;

@@ -63,7 +63,7 @@

   my $url = url_for->to_abs;

   $url->base(undef);

   my $ssh_port = config->{basic}{ssh_port};

-  my $rep_home = app->git->rep_home;

+  my $rep_home = app->rep_home;

   my $execute_user = getpwuid($>);

   my $ssh_rep_url_base = defined app->config->{basic}{'ssh_rep_url_base'}

     ? app->config->{basic}{'ssh_rep_url_base'} : $rep_home;