* [PATCH 0/3] lei forget-mail-sync: drop sync information
@ 2021-05-25 11:01 7% Eric Wong
2021-05-25 11:01 5% ` [PATCH 2/3] lei_mail_sync: args2folder: common folder lookup sub Eric Wong
0 siblings, 1 reply; 2+ results
From: Eric Wong @ 2021-05-25 11:01 UTC (permalink / raw)
To: meta
Sometimes users lose interest in a Maildir or IMAP folder, etc;
this drops sync information to not clutter up disk space,
"ls-mail-sync" output, etc.
Eric Wong (3):
lei export-kw: use lei->abs_path instead of rel2abs
lei_mail_sync: args2folder: common folder lookup sub
lei forget-mail-sync: new command to drop sync information
MANIFEST | 1 +
lib/PublicInbox/LEI.pm | 3 +-
lib/PublicInbox/LeiExportKw.pm | 34 +++---------------
lib/PublicInbox/LeiForgetMailSync.pm | 30 ++++++++++++++++
lib/PublicInbox/LeiInspect.pm | 21 +++++------
lib/PublicInbox/LeiMailSync.pm | 54 ++++++++++++++++++++++++++++
t/lei-import-imap.t | 4 +++
7 files changed, 104 insertions(+), 43 deletions(-)
create mode 100644 lib/PublicInbox/LeiForgetMailSync.pm
^ permalink raw reply [relevance 7%]
* [PATCH 2/3] lei_mail_sync: args2folder: common folder lookup sub
2021-05-25 11:01 7% [PATCH 0/3] lei forget-mail-sync: drop sync information Eric Wong
@ 2021-05-25 11:01 5% ` Eric Wong
0 siblings, 0 replies; 2+ results
From: Eric Wong @ 2021-05-25 11:01 UTC (permalink / raw)
To: meta
This lets us have a more consistent UX for mapping
easily-typed command-line arguments to canonical
folder locations.
---
lib/PublicInbox/LeiExportKw.pm | 34 ++++-----------------------
lib/PublicInbox/LeiInspect.pm | 21 +++++++----------
lib/PublicInbox/LeiMailSync.pm | 43 ++++++++++++++++++++++++++++++++++
3 files changed, 56 insertions(+), 42 deletions(-)
diff --git a/lib/PublicInbox/LeiExportKw.pm b/lib/PublicInbox/LeiExportKw.pm
index fabc01f8..92c3aa43 100644
--- a/lib/PublicInbox/LeiExportKw.pm
+++ b/lib/PublicInbox/LeiExportKw.pm
@@ -95,7 +95,6 @@ lei mail_sync uninitialized, see lei-import(1)
EOM
my $opt = $lei->{opt};
my $all = $opt->{all};
- my @all = $lms->folders;
if (defined $all) { # --all=<local|remote>
my %x = map { $_ => $_ } split(/,/, $all);
my @ok = grep(defined, delete(@x{qw(local remote), ''}));
@@ -107,6 +106,7 @@ EOM
EOM
}
my (%seen, @inc);
+ my @all = $lms->folders;
for my $ok (@ok) {
if ($ok eq 'local') {
@inc = grep(!m!\A[a-z0-9\+]+://!i, @all);
@@ -125,35 +125,9 @@ EOM
no --mail-sync folders known to lei
EOM
} else {
- my %all = map { $_ => 1 } @all;
- my @no;
- for (@folders) {
- next if $all{$_}; # ok
- if (-d "$_/new" && -d "$_/cur") {
- my $d = 'maildir:'.$lei->abs_path($_);
- push(@no, $_) unless $all{$d};
- $_ = $d;
- } elsif (m!\Aimaps?://!i) {
- my $orig = $_;
- my $res = $lms->match_imap_url($orig, $all);
- if (ref $res) {
- $_ = $$res;
- $lei->qerr(<<EOM);
-# using `$res' instead of `$orig'
-EOM
- } else {
- $lei->err($res) if defined $res;
- push @no, $orig;
- }
- } else {
- push @no, $_;
- }
- }
- my $no = join("\n\t", @no);
- return $lei->fail(<<EOF) if @no;
-No sync information for: $no
-Run `lei ls-mail-sync' to display valid choices
-EOF
+ my $err = $lms->arg2folder($lei, \@folders);
+ $lei->qerr(@{$err->{qerr}}) if $err->{qerr};
+ return $lei->fail($err->{fail}) if $err->{fail};
}
my $self = bless { lse => $lse }, __PACKAGE__;
$lei->{opt}->{'mail-sync'} = 1; # for prepare_inputs
diff --git a/lib/PublicInbox/LeiInspect.pm b/lib/PublicInbox/LeiInspect.pm
index 7fd33289..46b9197f 100644
--- a/lib/PublicInbox/LeiInspect.pm
+++ b/lib/PublicInbox/LeiInspect.pm
@@ -29,19 +29,16 @@ sub inspect_sync_folder ($$) {
my $ent = {};
my $lse = $lei->{lse} or return $ent;
my $lms = $lse->lms or return $ent;
- my @folders;
- if ($folder =~ m!\Aimaps?://!i) {
- @folders = map { $_->as_string } $lms->match_imap_url($folder);
- } elsif ($folder =~ m!\A(maildir|mh):(.+)!i) {
- my $type = lc $1;
- $folders[0] = "$type:".$lei->abs_path($2);
- } elsif (-d $folder) {
- $folders[0] = 'maildir:'.$lei->abs_path($folder);
- } else {
- $lei->fail("$folder not understood");
+ my $folders = [ $folder ];
+ my $err = $lms->arg2folder($lei, $folders);
+ if ($err) {
+ if ($err->{fail}) {
+ $lei->qerr("# no folders match $folder (non-fatal)");
+ @$folders = ();
+ }
+ $lei->qerr(@{$err->{qerr}}) if $err->{qerr};
}
- $lei->qerr("# no folders match $folder (non-fatal)") if !@folders;
- for my $f (@folders) {
+ for my $f (@$folders) {
$ent->{$f} = $lms->location_stats($f); # may be undef
}
$ent
diff --git a/lib/PublicInbox/LeiMailSync.pm b/lib/PublicInbox/LeiMailSync.pm
index 63076fa1..094cf1fd 100644
--- a/lib/PublicInbox/LeiMailSync.pm
+++ b/lib/PublicInbox/LeiMailSync.pm
@@ -302,4 +302,47 @@ sub match_imap_url {
"E: `$url' is ambiguous:\n\t".join("\n\t", @match)."\n";
}
+# map CLI args to folder table entries, returns undef on failure
+sub arg2folder {
+ my ($self, $lei, $folders) = @_;
+ my @all = $self->folders;
+ my %all = map { $_ => 1 } @all;
+ my ($err, @no);
+ for (@$folders) {
+ next if $all{$_}; # ok
+ if (m!\A(maildir|mh):(.+)!i) {
+ my $type = lc $1;
+ my $d = "$type:".$lei->abs_path($2);
+ push(@no, $_) unless $all{$d};
+ $_ = $d;
+ } elsif (-d "$_/new" && -d "$_/cur") {
+ my $d = 'maildir:'.$lei->abs_path($_);
+ push(@no, $_) unless $all{$d};
+ $_ = $d;
+ } elsif (m!\Aimaps?://!i) {
+ my $orig = $_;
+ my $res = match_imap_url($self, $orig, \@all);
+ if (ref $res) {
+ $_ = $$res;
+ push(@{$err->{qerr}}, <<EOM);
+# using `$res' instead of `$orig'
+EOM
+ } else {
+ $lei->err($res) if defined $res;
+ push @no, $orig;
+ }
+ } else {
+ push @no, $_;
+ }
+ }
+ if (@no) {
+ my $no = join("\n\t", @no);
+ $err->{fail} = <<EOF;
+No sync information for: $no
+Run `lei ls-mail-sync' to display valid choices
+EOF
+ }
+ $err;
+}
+
1;
^ permalink raw reply related [relevance 5%]
Results 1-2 of 2 | reverse | options above
-- pct% links below jump to the message on this page, permalinks otherwise --
2021-05-25 11:01 7% [PATCH 0/3] lei forget-mail-sync: drop sync information Eric Wong
2021-05-25 11:01 5% ` [PATCH 2/3] lei_mail_sync: args2folder: common folder lookup sub Eric Wong
Code repositories for project(s) associated with this public inbox
https://80x24.org/public-inbox.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).