lei edit-search: command to tweak search parameters

This may be useful for users to tweak search parameters.
This command is also the reason lei.saved-search is a git-config
file rather than JSON.

diff --git a/MANIFEST b/MANIFEST
index 2b73387ba3927a3cf03b8ffa300fddc89b7acbf3..1a1d72a6570c2896948263ca1b9ff7e42fe99bf3 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -190,6 +190,7 @@ lib/PublicInbox/LeiBlob.pm
 lib/PublicInbox/LeiConvert.pm
 lib/PublicInbox/LeiCurl.pm
 lib/PublicInbox/LeiDedupe.pm
+lib/PublicInbox/LeiEditSearch.pm
 lib/PublicInbox/LeiExternal.pm
 lib/PublicInbox/LeiForgetSearch.pm
 lib/PublicInbox/LeiHelp.pm

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index c3c796315b07beb125140d00afeb4f668a1e27ee..8fa8994488e12ae82ca22503bbfad095ae4ca0eb 100644 (file)
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -162,6 +162,8 @@ our %CMD = ( # sorted in order of importance/use:
                qw(format|f=s pretty l ascii z|0), @c_opt ],
 'forget-search' => [ 'OUTPUT', 'forget a saved search',
                qw(verbose|v+), @c_opt ],
+'edit-search' => [ 'OUTPUT', "edit saved search via `git config --edit'",
+                       @c_opt ],
 
 'plonk' => [ '--threads|--from=IDENT',
        'exclude mail matching From: or threads from non-Message-ID searches',

diff --git a/lib/PublicInbox/LeiEditSearch.pm b/lib/PublicInbox/LeiEditSearch.pm
new file mode 100644 (file)
index 0000000..fb36fdc
--- /dev/null
+++ b/lib/PublicInbox/LeiEditSearch.pm
@@ -0,0 +1,25 @@
+# Copyright (C) 2021 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+
+# "lei edit-search" edit a saved search following "lei q --save"
+package PublicInbox::LeiEditSearch;
+use strict;
+use v5.10.1;
+use PublicInbox::LeiSavedSearch;
+use PublicInbox::LeiUp;
+
+sub lei_edit_search {
+       my ($lei, $out) = @_;
+       my $lss = PublicInbox::LeiSavedSearch->up($lei, $out) or return;
+       my @cmd = (qw(git config --edit -f), $lss->{'-f'});
+       $lei->qerr("# spawning @cmd");
+       if ($lei->{oneshot}) {
+               exec(@cmd) or die "exec @cmd: $!\n";
+       } else {
+               $lei->send_exec_cmd([], \@cmd, {});
+       }
+}
+
+*_complete_edit_search = \&PublicInbox::LeiUp::_complete_up;
+
+1;