view: perform highlighting for space-prefixed diffs

[public-inbox.git] / lib / PublicInbox / ViewDiff.pm

diff --git a/lib/PublicInbox/ViewDiff.pm b/lib/PublicInbox/ViewDiff.pm
index 6b8d94372405486ca2223e0fc057e79cb24691ac..e9cfc3687ba392f2858f7570908196af75163e2f 100644 (file)
--- a/lib/PublicInbox/ViewDiff.pm
+++ b/lib/PublicInbox/ViewDiff.pm
@@ -141,8 +141,14 @@ sub flush_diff ($$$) {
        my $spfx = $ctx->{-spfx};
        my $state = DSTATE_INIT;
        my $dctx = { Q => '' }; # {}, keys: oid_a, oid_b, path_a, path_b
+       my $dpfx = $ctx->{-dpfx}; # leading spaces for interdiff
+       my $dpfx_re = qr/\A$dpfx/ if defined $dpfx;
 
        foreach my $s (@$diff) {
+               if (defined($dpfx)) {
+                       $s =~ s/$dpfx_re//;
+                       $$dst .= $dpfx;
+               }
                if ($s =~ /^---$/) {
                        to_state($dst, $state, DSTATE_STAT);
                        $$dst .= $s;