@@ -50,6 +50,55 @@ sub authors {

   return [sort keys %$authors];

 }

+sub blobdiffs {

+  my ($self, $rep, $from_id, $id, $difftrees) = @_;

+  

+  my $blobdiffs = [];

+  my @cmd = ($self->cmd($rep), 'diff-tree', '-r', '-M',

+    '--no-commit-id', '--patch-with-raw', $from_id, $id, '--');

+  open my $fh, '-|', @cmd

+    or croak('Open self-diff-tree failed');

+  my @file_info_raws;

+  while (my $line = $self->dec(scalar <$fh>)) {

+    chomp $line;

+    push @file_info_raws, $line if $line =~ /^:/;

+    last if $line =~ /^\n/;

+  }

+  close $fh;

+  for my $line (@file_info_raws) {

+  

+    # Parse line

+    chomp $line;

+    my $diffinfo = $self->parse_difftree_raw_line($line);

+    my $from_file = $diffinfo->{from_file};

+    my $file = $diffinfo->{to_file};

+    

+    # Get blobdiff (command "self diff-tree")

+    my @cmd = ($self->cmd($rep), 'diff-tree', '-r', '-M', '-p',

+      $from_id, $id, '--', (defined $from_file ? $from_file : ()), $file);

+    open my $fh_blobdiff, '-|', @cmd

+      or croak('Open self-diff-tree failed');

+    my @lines = map { $self->dec($_) } <$fh_blobdiff>;

+    close $fh_blobdiff;

+    my $blobdiff = {

+      file => $file,

+      from_file => $from_file,

+      lines => $self->parse_blobdiff_lines(\@lines)

+    };

+    

+    # Status

+    for my $difftree (@$difftrees) {

+      if ($difftree->{to_file} eq $file) {

+        $blobdiff->{status} = $difftree->{status};

+        last;

+      }

+    }

+    push @$blobdiffs, $blobdiff;

+  }

+  

+  return $blobdiffs;

+}

+

 sub blob_plain {

   my ($self, $rep, $ref, $path) = @_;

@@ -28,59 +28,13 @@

   $commit->{author_date} = $git->timestamp($author_date);

   $commit->{committer_date} = $git->timestamp($committer_date);

   $from_id = $commit->{parent} unless defined $from_id;

-  

   # Diff tree

   my $difftrees = $git->difftree($rep,

     $id, $commit->{parent}, $commit->{parents});

   # Get blob diffs (command "git diff-tree")

-  my @cmd = ($git->cmd($rep), 'diff-tree', '-r', '-M',

-    '--no-commit-id', '--patch-with-raw', $from_id, $id, '--');

-  open my $fh, '-|', @cmd

-    or $api->croak('Open git-diff-tree failed');

-

-

-  my @file_info_raws;

-  while (my $line = $git->dec(scalar <$fh>)) {

-    chomp $line;

-    push @file_info_raws, $line if $line =~ /^:/;

-    last if $line =~ /^\n/;

-  }

-  close $fh;

-  

-  # Parse output

-  my $blobdiffs = [];

-  for my $line (@file_info_raws) {

-  

-    # Parse line

-    chomp $line;

-    my $diffinfo = $git->parse_difftree_raw_line($line);

-    my $from_file = $diffinfo->{from_file};

-    my $file = $diffinfo->{to_file};

-    

-    # Get blobdiff (command "git diff-tree")

-    my @cmd = ($git->cmd($rep), 'diff-tree', '-r', '-M', '-p',

-      $from_id, $id, '--', (defined $from_file ? $from_file : ()), $file);

-    open my $fh_blobdiff, '-|', @cmd

-      or $api->croak('Open git-diff-tree failed');

-    my @lines = map { $git->dec($_) } <$fh_blobdiff>;

-    close $fh_blobdiff;

-    my $blobdiff = {

-      file => $file,

-      from_file => $from_file,

-      lines => $git->parse_blobdiff_lines(\@lines)

-    };

-    

-    # Status

-    for my $difftree (@$difftrees) {

-      if ($difftree->{to_file} eq $file) {

-        $blobdiff->{status} = $difftree->{status};

-        last;

-      }

-    }

-    push @$blobdiffs, $blobdiff;

-  }

+  my $blobdiffs = $git->blobdiffs($rep, $from_id, $id, $difftrees);

   # Render

   stash(

@@ -223,24 +177,22 @@

     </div>

     <div style="margin-top:10px;margin-bottom:10px;">

-    <%= include '/include/difftree', id => $commit->{id}, from_id => $commit->{parent},

-      difftrees => $difftrees, parents => $commit->{parents}, project_ns => $project %>

+      <%= include '/include/difftree', id => $commit->{id}, from_id => $commit->{parent},

+        difftrees => $difftrees, parents => $commit->{parents}, project_ns => $project %>

     </div>

-    <div>

-      <div class="patchset">

-        % for (my $i = 0; $i < @$blobdiffs; $i++) {

-          % my $blobdiff = $blobdiffs->[$i];

-          <div class="patch" id="<%= $i + 1 %>">

-            % my $lines = $blobdiff->{lines};

-            % my $file = $blobdiff->{file};

-            % my $from_file = $blobdiff->{from_file};

-            % $from_file = $file unless defined $from_file;

-            % my $status = $blobdiff->{status};

-            %= include '/include/blobdiff_body', file => $file, from_file => $from_file, status => $status, lines => $blobdiff->{lines}, project_ns => $project;

-          </div>

-        % }

-      </div>

+    <div class="patchset">

+      % for (my $i = 0; $i < @$blobdiffs; $i++) {

+        % my $blob_diff = $blobdiffs->[$i];

+        <div class="patch" id="<%= $i + 1 %>">

+          % my $lines = $blob_diff->{lines};

+          % my $file = $blob_diff->{file};

+          % my $from_file = $blob_diff->{from_file};

+          % $from_file = $file unless defined $from_file;

+          % my $status = $blob_diff->{status};

+          %= include '/include/blobdiff_body', file => $file, from_file => $from_file, status => $status, lines => $blob_diff->{lines}, project_ns => $project;

+        </div>

+      % }

     </div>

   </div>

@@ -148,7 +148,7 @@

       % }

     </div>

-    % for my $date (sort keys %$commits_date) {

+    % for my $date (reverse sort keys %$commits_date) {

       <div class="commit">

         % my $commits = $commits_date->{$date};

@@ -28,6 +28,24 @@

     push @{$commits_date->{$date}}, $commit;

   }

   my $authors_count = keys %$authors;

+

+  # Start commit

+  my $start_commit = $git->separated_commit($rep, $rev1, $rev2);

+

+  # End commit

+  my $end_commit = $git->parse_commit($rep, $rev2)

+    or $api->croak('Unknown commit object');

+  

+  use D;d [$start_commit->{id}, $end_commit->{id}];

+  

+  # Diff tree

+  my $difftrees = $git->difftree($rep,

+    ,$end_commit->{id}, $start_commit->{id}, []);

+  

+  use D;d $difftrees;

+  

+  # Get blob diffs (command "git diff-tree")

+  my $blobdiffs = $git->blobdiffs($rep, $start_commit->{id}, $end_commit->{id}, $difftrees);

   # Global variable

   stash(user => $user, project => $project);

@@ -156,7 +174,7 @@

     <h2>Compare View</h2>

     <div class="compare_header">

       <div class="cdate">Last commit <%= $commits->[0]{age_string_age} %></div>

-      <div class="ctarget">master ... next</div>

+      <div class="ctarget"><%= $rev1 %> ... <%= $rev2 %></div>

     </div>

     <div class="compare_tabs">

@@ -171,7 +189,7 @@

       Showing <%= @$commits %> commits by <%= $authors_count %> author.

     </div>

-    % for my $date (sort keys %$commits_date) {

+    % for my $date (reverse sort keys %$commits_date) {

       <div class="commits">

         % my $commits = $commits_date->{$date};

@@ -197,6 +215,27 @@

         % }

       </div>

     % }

+

+    <div style="margin-top:10px;margin-bottom:10px;">

+      <%= include '/include/difftree', id => $end_commit->{id}, from_id => $start_commit->{id},

+        difftrees => $difftrees, parents => [], project_ns => $project %>

+    </div>

+    

+    <div>

+      <div class="patchset">

+        % for (my $i = 0; $i < @$blobdiffs; $i++) {

+          % my $blobdiff = $blobdiffs->[$i];

+          <div class="patch" id="<%= $i + 1 %>">

+            % my $lines = $blobdiff->{lines};

+            % my $file = $blobdiff->{file};

+            % my $from_file = $blobdiff->{from_file};

+            % $from_file = $file unless defined $from_file;

+            % my $status = $blobdiff->{status};

+            %= include '/include/blobdiff_body', file => $file, from_file => $from_file, status => $status, lines => $blobdiff->{lines}, project_ns => $project, from_id => $start_commit->{id}, id => $end_commit->{id};

+          </div>

+        % }

+      </div>

+    </div>

   </div>

   %= include '/include/footer';