diff options
| author | Eric Wong <e@80x24.org> | 2021-05-30 06:33:55 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-05-30 08:09:08 +0000 |
| commit | 6ac85b2245b306590527196fb2cee124a29979b5 (patch) | |
| tree | 4189eae654b11a807d090ab9f37b47e396c2f46b | |
| parent | c4aa366973c9129a640f51c6a52a986f393ac206 (diff) | |
| download | public-inbox-6ac85b2245b306590527196fb2cee124a29979b5.tar.gz | |
Colons and other delimiters still cause problems for our bash completion, but some completion is better than no completion.
| -rw-r--r-- | lib/PublicInbox/LeiInspect.pm | 8 | ||||
| -rw-r--r-- | lib/PublicInbox/LeiLcat.pm | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/lib/PublicInbox/LeiInspect.pm b/lib/PublicInbox/LeiInspect.pm index 7205979e..eb2634b4 100644 --- a/lib/PublicInbox/LeiInspect.pm +++ b/lib/PublicInbox/LeiInspect.pm @@ -99,4 +99,12 @@ sub lei_inspect { $lei->out(']') if $multi; } +sub _complete_inspect { + my ($lei, @argv) = @_; + my $sto = $lei->_lei_store or return; + my $lms = $sto->search->lms or return; + my $match_cb = $lei->complete_url_prepare(\@argv); + map { $match_cb->($_) } $lms->folders; +} + 1; diff --git a/lib/PublicInbox/LeiLcat.pm b/lib/PublicInbox/LeiLcat.pm index effc3682..81ab1e36 100644 --- a/lib/PublicInbox/LeiLcat.pm +++ b/lib/PublicInbox/LeiLcat.pm @@ -132,4 +132,12 @@ no args allowed on command-line with --stdin $lei->_start_query; } +sub _complete_lcat { + my ($lei, @argv) = @_; + my $sto = $lei->_lei_store or return; + my $lms = $sto->search->lms or return; + my $match_cb = $lei->complete_url_prepare(\@argv); + grep(m!\A[a-z]+://!, map { $match_cb->($_) } $lms->folders); +} + 1; |