lei forget-external: just show the location

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

diff --git a/lib/PublicInbox/LeiExternal.pm b/lib/PublicInbox/LeiExternal.pm
index 59c3c3674cefa1dd159a5fb3a184b2e1561952b0..5b5f08d178d0f04d68455b0ad0964c0849c2cccb 100644 (file)
--- a/lib/PublicInbox/LeiExternal.pm
+++ b/lib/PublicInbox/LeiExternal.pm
@@ -76,9 +76,9 @@ sub lei_forget_external {
                        delete($cfg->{$key});
                        $self->_config('--unset', $key);
                        if ($? == 0) {
-                               push @unset, $key;
+                               push @unset, $l;
                        } elsif (($? >> 8) == 5) {
-                               push @not_found, $key;
+                               push @not_found, $l;
                        } else {
                                $self->err("# --unset $key error");
                                return $self->x_it($?);
@@ -86,7 +86,7 @@ sub lei_forget_external {
                }
                if (@unset) {
                        next if $quiet;
-                       $self->err("# $_ unset") for @unset;
+                       $self->err("# $_ gone") for @unset;
                } elsif (@not_found) {
                        $self->err("# $_ not found") for @not_found;
                } # else { already exited
@@ -101,12 +101,36 @@ sub _complete_forget_external {
        # Workaround bash word-splitting URLs to ['https', ':', '//' ...]
        # Maybe there's a better way to go about this in
        # contrib/completion/lei-completion.bash
-       my $colon = ($argv[-1] // '') eq ':';
-       my $re = $cur =~ /\A[\w-]/ ? '' : '.*';
+       my $re = '';
+       if (@argv) {
+               my @x = @argv;
+               if ($cur eq ':' && @x) {
+                       push @x, $cur;
+                       $cur = '';
+               }
+               while (@x > 2 && $x[0] !~ /\Ahttps?\z/ && $x[1] ne ':') {
+                       shift @x;
+               }
+               if (@x >= 2) { # qw(https : hostname : 443) or qw(http :)
+                       $re = join('', @x);
+               } else { # just filter out the flags and hope for the best
+                       $re = join('', grep(!/^-/, @argv));
+               }
+               $re = quotemeta($re);
+       }
+       # FIXME: bash completion off "http:" or "https:" when the last
+       # character is a colon doesn't work properly even if we're
+       # returning "//$HTTP_HOST/$PATH_INFO/", not sure why, could
+       # be a bash issue.
        map {
                my $x = substr($_, length('external.'));
                # only return the part specified on the CLI
-               $colon && $x =~ /(\Q$cur\E.*)/ ? $1 : $x;
+               if ($x =~ /\A$re(\Q$cur\E.*)/) {
+                       # don't duplicate if already 100% completed
+                       $cur eq $1 ? () : $1;
+               } else {
+                       ();
+               }
        } grep(/\Aexternal\.$re\Q$cur/, @{$cfg->{-section_order}});
 }