Adds a new option 'e' to the 'add -p' command loop that lets you
edit the current hunk in your favourite editor.
---
Thomas Rast wrote:
>
> - Perl's autovivification is out to get me. I've fixed a few, but
> there are probably still bugs.
I also tripped over Perl's idea of array slicing. This fixes an
off-by-one in the hunks forwared to apply --check. The diff between
this and the previous patch is
# @@ -908,7 +908,7 @@ sub edit_hunk_loop {
for my $h ($head,
$ix > 0 ? @$hunks[0..$ix-1] : (),
@newhunks,
- $ix < (scalar @$hunks)-2 ? @$hunks[$ix+1..@$hunks] : ()) {
+ $ix < (scalar @$hunks)-1 ? @$hunks[$ix+1..@$hunks-1] : ()) {
for (@{$h->{TEXT}}) {
print $fh $_;
}
As a side note, what's the "right" way to deal with this situation of
patch improvements? I made a normal commit chain on a side branch to
keep the history, but format-patch wants to make that into two mails,
so I had to rebuild the message format from diff -p --stat.
Regards
Thomas
git-add--interactive.perl | 171 +++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 171 insertions(+), 0 deletions(-)
diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index 903953e..a3b2c75 100755
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -18,6 +18,18 @@ my ($fraginfo_color) =
$diff_use_color ? (
$repo->get_color('color.diff.frag', 'cyan'),
) : ();
+my ($diff_plain_color) =
+ $diff_use_color ? (
+ $repo->get_color('color.diff.plain', ''),
+ ) : ();
+my ($diff_old_color) =
+ $diff_use_color ? (
+ $repo->get_color('color.diff.old', 'red'),
+ ) : ();
+my ($diff_new_color) =
+ $diff_use_color ? (
+ $repo->get_color('color.diff.new', 'green'),
+ ) : ();
my $normal_color = $repo->get_color("", "reset");
@@ -770,6 +782,158 @@ sub coalesce_overlapping_hunks {
return @out;
}
+sub edit_hunk_manually {
+ my @oldtext;
+ for (@_) {
+ push @oldtext, @{$_->{TEXT}};
+ }
+
+ # use a .diff file to help editors with highlighting
+ my $editpath = $repo->repo_path() . "/ADDP_HUNK_EDIT.diff";
+ my $fh;
+ open $fh, '>', $editpath
+ or die "failed to open hunk edit file for writing: " . $!;
+ print $fh <<EOF;
+# MANUAL HUNK EDIT MODE
+#
+# You can change the hunk to your heart's content, but it will be
+# refused if the end result (the entire patch including your edited
+# hunk) does not apply cleanly.
+#
+# To remove '-' lines, make them ' ' lines (context).
+# To remove '+' lines, delete them.
+# Empty lines and lines starting with # will be removed.
+#
+# Lines starting with @ start a new hunk. Line counts will be adjusted
+# according to contents. If the line numbers are missing altogether,
+# they will be inferred from the previous hunk.
+EOF
+ print $fh @oldtext;
+ close $fh;
+
+ my $editor = $ENV{GIT_EDITOR} || $repo->config("core.editor")
+ || $ENV{VISUAL} || $ENV{EDITOR} || "vi";
+ system('sh', '-c', $editor.' "$@"', $editor, $editpath);
+
+ open $fh, '<', $editpath
+ or die "failed to open hunk edit file for reading: " . $!;
+ my @newtext;
+ while (<$fh>) {
+ push (@newtext, $_) unless /^#/ || /^$/;
+ }
+ close $fh;
+ my @heads = ();
+ my ($o_ofs, $n_ofs);
+ my $o_cnt = 0;
+ my $n_cnt = 0;
+ my ($guess_o_ofs, undef, $guess_n_ofs, undef) = parse_hunk_header($oldtext[0]);
+ for (my $i = 0; $i < @newtext; $i++) {
+ if ((scalar @heads) == 0 && $newtext[$i] =~ /^[ +-]/) {
+ splice @newtext, $i, 0, $oldtext[0];
+ push @heads, $i;
+ }
+ elsif ($newtext[$i] =~ /^ /) {
+ $o_cnt++;
+ $n_cnt++;
+ }
+ elsif ($newtext[$i] =~ /^-/) {
+ $o_cnt++;
+ }
+ elsif ($newtext[$i] =~ /^\+/) {
+ $n_cnt++;
+ }
+ elsif ($newtext[$i] =~ /^@/) {
+ if (@heads > 0) {
+ # fix up the previous header first
+ ($o_ofs, undef, $n_ofs, undef)
+ = parse_hunk_header($newtext[$heads[-1]]);
+ $o_ofs = $guess_o_ofs unless defined $o_ofs;
+ $n_ofs = $guess_n_ofs unless defined $n_ofs;
+ $newtext[$heads[-1]] = (
+ "@@ -$o_ofs" . (($o_cnt != 1) ? ",$o_cnt" : '')
+ . " +$n_ofs" . (($n_cnt != 1) ? ",$n_cnt" : '')
+ . " @@\n");
+ $guess_o_ofs = $o_ofs + $o_cnt;
+ $guess_n_ofs = $n_ofs + $n_cnt;
+ }
+ $o_cnt = 0;
+ $n_cnt = 0;
+ push @heads, $i;
+ }
+ }
+ ($o_ofs, undef, $n_ofs, undef)
+ = parse_hunk_header($newtext[$heads[-1]]);
+ $o_ofs = $guess_o_ofs unless defined $o_ofs;
+ $n_ofs = $guess_n_ofs unless defined $n_ofs;
+ $newtext[$heads[-1]] = (
+ "@@ -$o_ofs" . (($o_cnt != 1) ? ",$o_cnt" : '')
+ . " +$n_ofs" . (($n_cnt != 1) ? ",$n_cnt" : '')
+ . " @@\n");
+
+ push @heads, (scalar @newtext);
+ my (@hunks) = ();
+ for (my $i = 0; $i < @heads-1; $i++) {
+ my @hunktext = @newtext[$heads[$i]..$heads[$i+1]-1];
+ my @hunkdisplay = ();
+ for (@hunktext) {
+ if (/^@/) {
+ push @hunkdisplay, (colored $fraginfo_color, $_);
+ }
+ elsif (/^\+/) {
+ push @hunkdisplay, (colored $diff_new_color, $_);
+ }
+ elsif (/^-/) {
+ push @hunkdisplay, (colored $diff_old_color, $_);
+ }
+ else {
+ push @hunkdisplay, (colored $diff_plain_color, $_);
+ }
+ }
+ push @hunks, {TEXT => \@hunktext, DISPLAY => \@hunkdisplay};
+ }
+
+ return @hunks;
+}
+
+sub edit_hunk_loop {
+ my ($head, $hunks, $ix) = @_;
+
+ my @newhunks = ($hunks->[$ix]);
+
+ EDIT:
+ while (1) {
+ @newhunks = edit_hunk_manually(@newhunks);
+ my $fh;
+ open $fh, '| git apply --cached --check';
+ for my $h ($head,
+ $ix > 0 ? @$hunks[0..$ix-1] : (),
+ @newhunks,
+ $ix < (scalar @$hunks)-1 ? @$hunks[$ix+1..@$hunks-1] : ()) {
+ for (@{$h->{TEXT}}) {
+ print $fh $_;
+ }
+ }
+ if (!close $fh) {
+ # didn't apply cleanly
+ while (1) {
+ print colored $prompt_color, "Your edited hunk does not apply. Edit again (saying \"no\" discards!) [y/n]? ";
+ my $line = <STDIN>;
+ if ($line =~ /^y/) {
+ redo EDIT;
+ }
+ elsif ($line =~ /^n/) {
+ return $hunks->[$ix];
+ }
+ }
+ }
+ if (1 < @newhunks) {
+ print colored $header_color, "Manually edited into ",
+ scalar(@newhunks), " hunks.\n";
+ }
+ return @newhunks;
+ }
+}
+
sub help_patch_cmd {
print colored $help_color, <<\EOF ;
y - stage this hunk
@@ -781,6 +945,7 @@ J - leave this hunk undecided, see next hunk
k - leave this hunk undecided, see previous undecided hunk
K - leave this hunk undecided, see previous hunk
s - split the current hunk into smaller hunks
+e - manually edit the current hunk
? - print help
EOF
}
@@ -885,6 +1050,7 @@ sub patch_update_file {
if (hunk_splittable($hunk[$ix]{TEXT})) {
$other .= '/s';
}
+ $other .= '/e';
for (@{$hunk[$ix]{DISPLAY}}) {
print;
}
@@ -949,6 +1115,11 @@ sub patch_update_file {
$num = scalar @hunk;
next;
}
+ elsif ($line =~ /^e/) {
+ splice @hunk, $ix, 1, edit_hunk_loop($head, \@hunk, $ix);
+ $num = scalar @hunk;
+ next;
+ }
else {
help_patch_cmd($other);
next;
--
1.5.6.rc0.159.g710c6.dirty
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
