lei edit-search: command to tweak search parameters

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

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;