1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# Copyright all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
# "lei rm-watch" command
package PublicInbox::LeiRmWatch;
use strict;
use v5.10.1;
use parent qw(PublicInbox::LeiInput);
sub lei_rm_watch {
my ($lei, @argv) = @_;
my $cfg = $lei->_lei_cfg(1);
$lei->{opt}->{'mail-sync'} = 1; # for prepare_inputs
my $self = bless { missing_ok => 1 }, __PACKAGE__;
$self->prepare_inputs($lei, \@argv) or return;
for my $w (@{$self->{inputs}}) {
$lei->_config('--remove-section', "watch.$w");
}
delete $lei->{cfg}; # force reload
$lei->refresh_watches;
}
sub _complete_rm_watch {
my ($lei, @argv) = @_;
my $cfg = $lei->_lei_cfg or return;
my $match_cb = $lei->complete_url_prepare(\@argv);
my @w = (join("\n", keys %$cfg) =~ m/^watch\.(.+?)\.state$/sgm);
map { $match_cb->($_) } @w;
}
1;
|
