1 # Copyright (C) 2021 all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
4 # "lei forget-search" forget/remove a saved search "lei q --save"
5 package PublicInbox::LeiForgetSearch;
8 use PublicInbox::LeiSavedSearch;
9 use PublicInbox::LeiUp;
13 sub lei_forget_search {
14 my ($lei, @outs) = @_;
15 my @dirs; # paths in ~/.local/share/lei/saved-search/
18 my $d = PublicInbox::LeiSavedSearch::lss_dir_for($lei, \$o, 1);
21 } else { # keep going, like rm(1):
22 $cwd //= $lei->rel2abs('.');
23 warn "--save was not used with $o cwd=$cwd\n";
27 my $opt = { safe => 1 };
28 if ($lei->{opt}->{verbose}) {
30 $save = SelectSaver->new($lei->{2});
32 File::Path::remove_tree(@dirs, $opt);
33 $lei->fail if defined $cwd;
36 *_complete_forget_search = \&PublicInbox::LeiUp::_complete_up;