/;
use File::Type::WebImages ();
+use JSON::XS qw/encode_json/;
sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
sub _diff {
my ($self, $c) = @_;
my %diff_args = ( patch => 1 );
- foreach my $arg qw/filename parent/ {
+ foreach my $arg (qw/filename parent/) {
if (defined $c->stash->{$arg}) {
$diff_args{$arg} = $c->stash->{$arg};
};
diff_tree => $tree,
diff => $patch,
# XXX Hack hack hack, see View::SyntaxHighlight
- blobs => [map $_->{diff}, @$patch],
- %filename,
+ diffs => [map $_->{diff}, @$patch],
+ %diff_args,
);
}
my ( $self, $c ) = @_;
my $repository = $c->stash->{Repository};
my $commit = $c->stash->{Commit};
- my $tree = $c->stash->{filename}
- ? $repository->get_object($repository->hash_by_path($commit->sha1, $c->stash->{filename}))
- : $repository->get_object($commit->tree_sha1)
+ my $tree_obj = $c->stash->{filename}
+ ? $commit->sha_by_path($c->stash->{filename})
+ : $commit->tree->[0]
;
$c->stash(
- tree => $tree,
- tree_list => [$repository->list_tree($tree->sha1)],
+ tree => $tree_obj,
+ tree_list => $tree_obj->tree,
);
};
my($self, $c) = @_;
my $repository = $c->stash->{Repository};
- # WTF?
+
my $blame = $c->stash->{Commit}->blame($c->stash->{filename}, $c->stash->{Commit}->sha1);
$c->stash(
blame => $blame,
blob => join("\n", map $_->{line}, @$blame),
);
- $c->forward('Model::ContentMangler')
- unless $c->stash->{no_wrapper};
+ $c->forward('Model::ContentMangler');
};
+=encoding UTF-8
+
+=head1 NAME
+
+Gitalist::Controller::Fragment::Ref - Fragment::Ref module for Gitalist::Controller
+
=head2 blob
The blob action i.e the contents of a file.
is_image => File::Type::WebImages::mime_type($c->stash->{blob}),
is_binary => Gitalist::Utils::is_binary($c->stash->{blob}),
);
-
- $c->forward('Model::ContentMangler')
- unless $c->stash->{no_wrapper};
+ $c->forward('Model::ContentMangler');
};
after history => sub {
my %logargs = (
sha1 => $c->stash->{Commit}->sha1,
- count => 25, #Gitalist->config->{paging}{log} || 25,
+ count => Gitalist->config->{paging}{log} || 25,
($filename ? (file => $filename) : ())
);
- my $file = $repository->get_object(
- $repository->hash_by_path(
- $repository->head_hash,
- $filename
- )
- );
+ my $commit = $repository->get_object('HEAD');
+ my $file = $commit->sha_by_path($filename);
my $page = $c->req->param('pg') || 0;
$logargs{skip} = $c->req->param('pg') * $logargs{count}
refs => $repository->references,
filename => $filename,
filetype => $file->type,
+ page => $page,
);
};
+after file_commit_info => sub {
+ my ($self, $c) = @_;
+
+ my $repository = $c->stash->{Repository};
+
+ my($commit) = $repository->list_revs(
+ sha1 => $c->stash->{Commit}->sha1,
+ count => 1,
+ file => $c->stash->{filename},
+ );
+
+ my $json_obj = !$commit
+ ? { }
+ : {
+ sha1 => $commit->sha1,
+ comment => $c->stash->{short_cmt}->($commit->comment),
+ age => $c->stash->{time_since}->($commit->authored_time),
+ };
+
+ $c->response->content_type('application/json');
+ # XXX Make use of the json branch
+ $c->response->body( encode_json $json_obj );
+};
+
__PACKAGE__->meta->make_immutable;