1 package Gitalist::Controller::Fragment::Commit;
3 use namespace::autoclean;
5 BEGIN { extends 'Gitalist::Controller' }
6 with 'Gitalist::URIStructure::Commit';
8 sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
12 my $commit = $c->stash->{Commit};
13 my($tree, $patch) = $c->stash->{Repository}->diff(
15 parent => $c->req->param('hp') || undef,
21 # XXX Hack hack hack, see View::SyntaxHighlight
22 blobs => [map $_->{diff}, @$patch],
27 after diff_fancy => sub {
29 $c->forward('View::SyntaxHighlight');
32 after diff_plain => sub {
34 $c->response->content_type('text/plain; charset=utf-8');
38 my ( $self, $c ) = @_;
39 my $repository = $c->stash->{Repository};
40 my $commit = $c->stash->{Commit};
41 my $tree = $c->stash->{filename}
42 ? $repository->get_object($repository->hash_by_path($commit->sha1, $c->stash->{filename}))
43 : $repository->get_object($commit->tree_sha1)
47 tree_list => [$repository->list_tree($tree->sha1)],
48 path => $c->stash->{filename}, # FIXME?
55 my $repository = $c->stash->{Repository};
57 my $blame = $c->stash->{Commit}->blame($c->stash->{filename}, $c->stash->{Commit}->sha1);
60 # XXX Hack hack hack, see View::SyntaxHighlight
61 language => ($c->stash->{filename} =~ /\.p[lm]$/i ? 'Perl' : ''),
62 blob => join("\n", map $_->{line}, @$blame),
65 $c->forward('View::SyntaxHighlight')
66 unless $c->stash->{no_wrapper};
71 The blob action i.e the contents of a file.
76 my ( $self, $c ) = @_;
78 my $repository = $c->stash->{Repository};
80 $repository->hash_by_path($c->stash->{Commit}->sha1, $c->stash->{filename})
81 || die "No file or sha1 provided.";
82 my $blob = $repository->get_object($h);
84 blob => $blob->content,
85 # XXX Hack hack hack, see View::SyntaxHighlight
86 language => ($c->stash->{filename} =~ /\.p[lm]$/i ? 'Perl' : ''),
89 $c->forward('View::SyntaxHighlight')
90 unless $c->stash->{no_wrapper};
93 __PACKAGE__->meta->make_immutable;