use namespace::autoclean;
BEGIN { extends 'Gitalist::Controller' }
-with 'Gitalist::URIStructure::Ref';
+with qw/
+ Gitalist::URIStructure::Ref
+ Gitalist::URIStructure::Fragment::WithLog
+/;
+
+use File::Type::WebImages ();
sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
-after diff => sub {
+sub _diff {
my ($self, $c) = @_;
my $commit = $c->stash->{Commit};
+ my %filename = $c->stash->{filename} ? (filename => $c->stash->{filename}) : ();
my($tree, $patch) = $c->stash->{Repository}->diff(
commit => $commit,
- parent => $c->req->param('hp') || undef,
+ parent => $c->stash->{parent},
patch => 1,
+ %filename,
);
$c->stash(
diff_tree => $tree,
diff => $patch,
# XXX Hack hack hack, see View::SyntaxHighlight
blobs => [map $_->{diff}, @$patch],
- language => 'Diff',
+ %filename,
);
-};
+}
after diff_fancy => sub {
my ($self, $c) = @_;
- $c->forward('View::SyntaxHighlight');
+ $self->_diff($c);
+ $c->forward('Model::ContentMangler');
};
after diff_plain => sub {
my ($self, $c) = @_;
- $c->response->content_type('text/plain; charset=utf-8');
+ $self->_diff($c);
};
after tree => sub {
$c->stash(
tree => $tree,
tree_list => [$repository->list_tree($tree->sha1)],
- path => $c->stash->{filename}, # FIXME?
);
};
my $blame = $c->stash->{Commit}->blame($c->stash->{filename}, $c->stash->{Commit}->sha1);
$c->stash(
blame => $blame,
- # XXX Hack hack hack, see View::SyntaxHighlight
- language => ($c->stash->{filename} =~ /\.p[lm]$/i ? 'Perl' : ''),
blob => join("\n", map $_->{line}, @$blame),
);
- $c->forward('View::SyntaxHighlight')
- unless $c->stash->{no_wrapper};
+ $c->forward('Model::ContentMangler');
};
=head2 blob
after blob => sub {
my ( $self, $c ) = @_;
$c->stash(
- # XXX Hack hack hack, see View::SyntaxHighlight
- language => ($c->stash->{filename} =~ /\.p[lm]$/i ? 'Perl' : ''),
+ is_image => File::Type::WebImages::mime_type($c->stash->{blob}),
+ is_binary => Gitalist::Utils::is_binary($c->stash->{blob}),
+ );
+ $c->forward('Model::ContentMangler');
+};
+
+after history => sub {
+ my ($self, $c) = @_;
+ my $repository = $c->stash->{Repository};
+ my $filename = $c->stash->{filename};
+
+ my %logargs = (
+ sha1 => $c->stash->{Commit}->sha1,
+ count => 25, #Gitalist->config->{paging}{log} || 25,
+ ($filename ? (file => $filename) : ())
+ );
+
+ my $file = $repository->get_object(
+ $repository->hash_by_path(
+ $repository->head_hash,
+ $filename
+ )
);
- $c->forward('View::SyntaxHighlight')
- unless $c->stash->{no_wrapper};
+ my $page = $c->req->param('pg') || 0;
+ $logargs{skip} = $c->req->param('pg') * $logargs{count}
+ if $c->req->param('pg');
+
+ $c->stash(
+ log_lines => [$repository->list_revs(%logargs)],
+ refs => $repository->references,
+ filename => $filename,
+ filetype => $file->type,
+ );
};
__PACKAGE__->meta->make_immutable;