@@ -8,6 +8,8 @@ use Gitprep::Git;

 has 'git';

+has 'root' => '/gitpub';

+

 sub startup {

   my $self = shift;

@@ -0,0 +1,62 @@

+package Gitprep::API;

+use Mojo::Base -base;

+

+use Carp ();

+use File::Basename ();

+

+sub croak { Carp::croak(@_) }

+sub dirname { File::Basename::dirname(@_) }

+

+has 'cntl';

+

+sub new {

+  my ($class, $cntl) = @_;

+

+  my $self = $class->SUPER::new(cntl => $cntl);

+  

+  return $self;

+}

+

+sub root_ns {

+  my ($self, $root) = @_;

+

+  $root =~ s/^\///;

+  

+  return $root;

+}

+

+sub parse_id_path {

+  my ($self, $project, $id_path) = @_;

+  

+  my $c = $self->cntl;

+  

+  # Git

+  my $git = $c->app->git;

+  

+  # Parse id and path

+  my $refs = $git->references($project);

+  my $id;

+  my $path;

+  for my $rs (values %$refs) {

+    for my $ref (@$rs) {

+      $ref =~ s#^heads/##;

+      $ref =~ s#^tags/##;

+      if ($id_path =~ s#^\Q$ref(/|$)##) {

+        $id = $ref;

+        $path = $id_path;

+        last;

+      }      

+    }

+  }

+  unless (defined $id) {

+    if ($id_path =~ s#(^[^/]+)(/|$)##) {

+      $id = $1;

+      $path = $id_path;

+    }

+  }

+  

+  return ($id, $path);

+}

+

+1;

+

@@ -2,6 +2,7 @@ package Gitprep::Main;

 use Mojo::Base 'Mojolicious::Controller';

 use File::Basename 'dirname';

 use Carp 'croak';

+use Gitprep::API;

 sub blob {

   my $self = shift;

@@ -320,15 +321,6 @@ sub commitdiff {

   }

 }

-sub home {

-  my $self = shift;

-

-  my $rep_home = '/gitpub';

-  my @users = qw/kimoto ken/;

-

-  $self->render(users => \@users);

-}

-

 sub heads {

   my $self = shift;

@@ -412,87 +404,6 @@ sub _root_ns {

   return $root;

 }

-sub repository {

-  my $self = shift;

-  

-  # Parameters

-  my $user = $self->param('user');

-  my $repository = $self->param('repository');

-  my $root_ns = $self->_root_ns;

-  

-  my $project_ns = "$root_ns/$user/$repository.git";

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id_dir = $self->param('id_dir') || 'master/';

-

-  # Id and directory

-  my ($id, $dir) = $self->_parse_id_path($project, $id_dir);

-

-  # Git

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

-  

-  # Tree id

-  my $tid;

-  my $commit = $git->parse_commit($project, $id);

-  unless (defined $tid) {

-    if (defined $dir && $dir ne '') {

-      $tid = $git->id_by_path($project, $id, $dir, 'tree');

-    }

-    else { $tid = $commit->{tree} }

-  }

-  $self->render_not_found unless defined $tid;

-

-  # Get tree (command "git ls-tree")

-  my @entries = ();

-  my $show_sizes = 0;

-  open my $fh, '-|', $git->cmd($project), 'ls-tree', '-z',

-      ($show_sizes ? '-l' : ()), $tid

-    or croak 'Open git-ls-tree failed';

-  local $/ = "\0";

-  @entries = map { chomp; $git->dec($_) } <$fh>;

-  close $fh

-    or croak 404, "Reading tree failed";

-  

-  # Parse tree

-  my @trees;

-  for my $line (@entries) {

-    my $tree = $git->parse_ls_tree_line($line, -z => 1, -l => $show_sizes);

-    $tree->{mode_str} = $git->_mode_str($tree->{mode});

-    push @trees, $tree;

-  }

-  

-  # References

-  my $refs = $git->references($project);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    dir => $dir,

-    id => $id,

-    tid => $tid,

-    commit => $commit,

-    trees => \@trees,

-    refs => $refs

-  );

-}

-

-sub repositories {

-  my $self = shift;

-

-  my $root = $self->root;

-  my $user = $self->param('user');

-  

-  # Repositories

-  my $reps = $self->app->git->repositories("/$root/$user");

-  

-  # Render

-  $self->render(reps => $reps);

-}

-

 sub snapshot {

   my $self = shift;

@@ -1,3 +1,8 @@

+<%

+  my $rep_home = app->root;;

+  my $users = [qw/kimoto ken/];

+%>

+

 % layout 'common';

   %= include '/include/header', title => 'Gitprep';

   <table class="project_list">

@@ -1,3 +1,11 @@

+<%

+  my $root = app->root;

+  my $user = param('user');

+  

+  # Repositories

+  my $reps = app->git->repositories("/$root/$user");

+%>

+

 % layout 'common';

   %= include '/include/header', title => 'Repositories';

   <table class="project_list">

@@ -1,3 +1,62 @@

+<%

+  use Gitprep::API;

+  

+  # Parameters

+  my $user = param('user');

+  my $repository = param('repository');

+  my $id_dir ||= param('id_dir') || 'master/';

+

+  # API

+  my $api = Gitprep::API->new($self);

+  

+  # Parameters

+  my $root_ns = $api->root_ns(app->root);

+  

+  my $project_ns = "$root_ns/$user/$repository.git";

+  my $project = "/$project_ns";

+  my $home_ns = $api->dirname($project_ns);

+  my $home = "/$home_ns";

+

+  # Id and directory

+  my ($id, $dir) = $api->parse_id_path($project, $id_dir);

+

+  # Git

+  my $git = app->git;

+  

+  # Tree id

+  my $tid;

+  my $commit = $git->parse_commit($project, $id);

+  unless (defined $tid) {

+    if (defined $dir && $dir ne '') {

+      $tid = $git->id_by_path($project, $id, $dir, 'tree');

+    }

+    else { $tid = $commit->{tree} }

+  }

+  $self->render_not_found unless defined $tid;

+

+  # Get tree (command "git ls-tree")

+  my @entries = ();

+  my $show_sizes = 0;

+  open my $fh, '-|', $git->cmd($project), 'ls-tree', '-z',

+      ($show_sizes ? '-l' : ()), $tid

+    or $api->croak('Open git-ls-tree failed');

+  local $/ = "\0";

+  @entries = map { chomp; $git->dec($_) } <$fh>;

+  close $fh

+    or $api->croak(404, "Reading tree failed");

+  

+  # Parse tree

+  my $trees;

+  for my $line (@entries) {

+    my $tree = $git->parse_ls_tree_line($line, -z => 1, -l => $show_sizes);

+    $tree->{mode_str} = $git->_mode_str($tree->{mode});

+    push @$trees, $tree;

+  }

+  

+  # References

+  my $refs = $git->references($project);

+%>

+

 % layout 'new_common';

   %= include '/css/common';