lib/Gitalist/Controller/Fragment/Commit.pm

   1 package Gitalist::Controller::Fragment::Commit;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends 'Catalyst::Controller' }
   6 with 'Gitalist::URIStructure::Commit';
   7
   8 sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
   9
  10 after diff => sub {
  11     my ($self, $c) = @_;
  12     my $commit = $c->stash->{Commit};
  13     my($tree, $patch) = $c->stash->{Repository}->diff(
  14         commit => $commit,
  15         parent => $c->req->param('hp') || undef,
  16         patch  => 1,
  17     );
  18     $c->stash(
  19       diff_tree => $tree,
  20       diff      => $patch,
  21       # XXX Hack hack hack, see View::SyntaxHighlight
  22       blobs     => [map $_->{diff}, @$patch],
  23       language  => 'Diff',
  24     );
  25 };
  26
  27 after diff_fancy => sub {
  28     my ($self, $c) = @_;
  29     $c->forward('View::SyntaxHighlight');
  30 };
  31
  32 after diff_plain => sub {
  33     my ($self, $c) = @_;
  34     $c->response->content_type('text/plain; charset=utf-8');
  35 };
  36
  37 after tree => sub {
  38     my ( $self, $c, @fn ) = @_;
  39     my $repository = $c->stash->{Repository};
  40     my $commit  = $c->stash->{Commit};
  41     my $filename = join('/', @fn);
  42     my $tree    = $filename
  43       ? $repository->get_object($repository->hash_by_path($commit->sha1, $filename))
  44       : $repository->get_object($commit->tree_sha1)
  45     ;
  46     $c->stash(
  47         tree      => $tree,
  48         tree_list => [$repository->list_tree($tree->sha1)],
  49         path      => $filename,
  50     );
  51 };
  52
  53 after blame => sub {
  54     my($self, $c, @fn) = @_;
  55
  56     my $repository = $c->stash->{Repository};
  57     my $filename = join('/', @fn);
  58                                                       # WTF?
  59     my $blame = $c->stash->{Commit}->blame($filename, $c->stash->{Commit}->sha1);
  60     $c->stash(
  61         blame    => $blame,
  62         filename => $filename,
  63
  64         # XXX Hack hack hack, see View::SyntaxHighlight
  65         language => ($filename =~ /\.p[lm]$/i ? 'Perl' : ''),
  66         blob     => join("\n", map $_->{line}, @$blame),
  67     );
  68
  69     $c->forward('View::SyntaxHighlight')
  70         unless $c->stash->{no_wrapper};
  71 };
  72
  73 =head2 blob
  74
  75 The blob action i.e the contents of a file.
  76
  77 =cut
  78
  79 after blob => sub {
  80     my ( $self, $c, @fn ) = @_;
  81
  82     my $filename = join('/', @fn);
  83     my $repository = $c->stash->{Repository};
  84     my $h  =
  85           $repository->hash_by_path($c->stash->{Commit}->sha1, $filename)
  86           || die "No file or sha1 provided.";
  87      my $blob = $repository->get_object($h);
  88     $c->stash(
  89         blob     => $blob->content,
  90         filename => $filename,
  91         # XXX Hack hack hack, see View::SyntaxHighlight
  92         language => ($filename =~ /\.p[lm]$/i ? 'Perl' : ''),
  93     );
  94
  95     $c->forward('View::SyntaxHighlight')
  96         unless $c->stash->{no_wrapper};
  97 };
  98
  99 __PACKAGE__->meta->make_immutable;