Add age to commit info.

[catagits/Gitalist.git] / lib / Gitalist / Controller / Fragment / Ref.pm

diff --git a/lib/Gitalist/Controller/Fragment/Ref.pm b/lib/Gitalist/Controller/Fragment/Ref.pm
index 549e4a3..a2e02e3 100644 (file)
--- a/lib/Gitalist/Controller/Fragment/Ref.pm
+++ b/lib/Gitalist/Controller/Fragment/Ref.pm
@@ -9,6 +9,7 @@ with qw/
 /;
 
 use File::Type::WebImages ();
+use JSON::XS qw(encode_json);
 
 sub base : Chained('/fragment/repository/find') PathPart('') CaptureArgs(0) {}
 
@@ -67,8 +68,7 @@ after blame => sub {
         blob     => join("\n", map $_->{line}, @$blame),
     );
 
-    $c->forward('Model::ContentMangler')
-        unless $c->stash->{no_wrapper};
+    $c->forward('Model::ContentMangler');
 };
 
 =head2 blob
@@ -83,9 +83,7 @@ after blob => sub {
         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 {
@@ -118,4 +116,28 @@ after history => sub {
     );
 };
 
+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;