lei import: support shell completion of known folders

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

diff --git a/lib/PublicInbox/LeiUp.pm b/lib/PublicInbox/LeiUp.pm
index f4ff070be8bb925c0902035de32077223c55403e..4399c4fba7641a0e4df7933415e207bda203376d 100644 (file)
--- a/lib/PublicInbox/LeiUp.pm
+++ b/lib/PublicInbox/LeiUp.pm
@@ -99,8 +99,8 @@ sub lei_up {
 
 sub _complete_up {
        my ($lei, @argv) = @_;
-       my ($cur, $re) = $lei->complete_url_common(\@argv);
-       grep(/\A$re\Q$cur/, PublicInbox::LeiSavedSearch::list($lei));
+       my $match_cb = $lei->complete_url_prepare(\@argv);
+       map { $match_cb->($_) } PublicInbox::LeiSavedSearch::list($lei);
 }
 
 1;