1 package Gitalist::Controller::Fragment::Ref;
3 use namespace::autoclean;
5 BEGIN { extends 'Gitalist::Controller' }
7 Gitalist::URIStructure::Ref
8 Gitalist::URIStructure::Fragment::WithLog
11 use File::Type::WebImages ();
12 use JSON::XS qw(encode_json);
14 sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
18 my %diff_args = ( patch => 1 );
19 foreach my $arg qw/filename parent/ {
20 if (defined $c->stash->{$arg}) {
21 $diff_args{$arg} = $c->stash->{$arg};
24 my ($tree, $patch) = $c->stash->{Commit}->diff(
30 # XXX Hack hack hack, see View::SyntaxHighlight
31 blobs => [map $_->{diff}, @$patch],
36 after diff_fancy => sub {
39 $c->forward('Model::ContentMangler');
42 after diff_plain => sub {
48 my ( $self, $c ) = @_;
49 my $repository = $c->stash->{Repository};
50 my $commit = $c->stash->{Commit};
51 my $tree_obj = $c->stash->{filename}
52 ? $commit->sha_by_path($c->stash->{filename})
57 tree_list => $tree_obj->tree,
64 my $repository = $c->stash->{Repository};
66 my $blame = $c->stash->{Commit}->blame($c->stash->{filename}, $c->stash->{Commit}->sha1);
69 blob => join("\n", map $_->{line}, @$blame),
72 $c->forward('Model::ContentMangler');
79 Gitalist::Controller::Fragment::Ref - Fragment::Ref module for Gitalist::Controller
83 The blob action i.e the contents of a file.
88 my ( $self, $c ) = @_;
90 is_image => File::Type::WebImages::mime_type($c->stash->{blob}),
91 is_binary => Gitalist::Utils::is_binary($c->stash->{blob}),
93 $c->forward('Model::ContentMangler');
96 after history => sub {
98 my $repository = $c->stash->{Repository};
99 my $filename = $c->stash->{filename};
102 sha1 => $c->stash->{Commit}->sha1,
103 count => Gitalist->config->{paging}{log} || 25,
104 ($filename ? (file => $filename) : ())
107 my $commit = $repository->get_object('HEAD');
108 my $file = $commit->sha_by_path($filename);
110 my $page = $c->req->param('pg') || 0;
111 $logargs{skip} = $c->req->param('pg') * $logargs{count}
112 if $c->req->param('pg');
115 log_lines => [$repository->list_revs(%logargs)],
116 refs => $repository->references,
117 filename => $filename,
118 filetype => $file->type,
123 after file_commit_info => sub {
126 my $repository = $c->stash->{Repository};
128 my($commit) = $repository->list_revs(
129 sha1 => $c->stash->{Commit}->sha1,
131 file => $c->stash->{filename},
134 my $json_obj = !$commit
137 sha1 => $commit->sha1,
138 comment => $c->stash->{short_cmt}->($commit->comment),
139 age => $c->stash->{time_since}->($commit->authored_time),
142 $c->response->content_type('application/json');
143 # XXX Make use of the json branch
144 $c->response->body( encode_json $json_obj );
147 __PACKAGE__->meta->make_immutable;