X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=bin%2Fsup-config;h=398197f512205207a2045c374752372ce486d9a5;hb=797af34eb246244c88b1923ef907c26f6de6ea43;hp=5b75b2b83b0c04410102dfc8daa5ae559ead6eb8;hpb=2016bd83be878cd365a1416b85c62574e64869fc;p=sup diff --git a/bin/sup-config b/bin/sup-config old mode 100644 new mode 100755 index 5b75b2b..398197f --- a/bin/sup-config +++ b/bin/sup-config @@ -21,11 +21,11 @@ end #' stupid ruby-mode def axe q, default=nil ans = - if default && !default.empty? - ask "#{q} (enter for \"#{default}\"): " - else - ask "#{q}: " - end + if default && !default.empty? + ask "#{q} (enter for \"#{default}\"): " + else + ask "#{q}: " + end ans.empty? ? default : ans end @@ -42,7 +42,7 @@ def add_source say "Ok, adding a new source." choose do |menu| - menu.prompt = "What type of mail source is it?" + menu.prompt = "What type of mail source is it? " menu.choice("mbox file") { type = :mbox } menu.choice("maildir directory") { type = :maildir } menu.choice("remote mbox file (accessible via ssh)") { type = :mboxssh } @@ -52,40 +52,57 @@ def add_source end while true do - say "Now for the details." + say "Ok, now for the details." - components = + default_labels, components = case type when :mbox - fn = axe "What's the full path to the mbox file?", ENV["MAIL"] #"srm + $last_fn ||= ENV["MAIL"] + fn = axe "What's the full path to the mbox file?", $last_fn #"srm return if fn.nil? || fn.empty? - { :scheme => "mbox", :path => fn } + + $last_fn = fn + [Redwood::MBox::Loader.suggest_labels_for(fn), + { :scheme => "mbox", :path => fn }] when :maildir - fn = axe "What's the full path to the maildir directory?", ENV["MAIL"] #"srm + $last_fn ||= ENV["MAIL"] + fn = axe "What's the full path to the maildir directory?", $last_fn #"srm return if fn.nil? || fn.empty? - { :scheme => "maildir", :path => fn } + + $last_fn = fn + [Redwood::Maildir.suggest_labels_for(fn), + { :scheme => "maildir", :path => fn }] when :mboxssh + $last_server ||= "localhost" srv = axe "What machine is the mbox file located on?", $last_server return if srv.nil? || srv.empty? $last_server = srv - fn = axe "What's the full path to the mbox file?", ENV["MAIL"] #"srm + + fn = axe "What's the path to the mbox file?", $last_fn #" stupid ruby-mode return if fn.nil? || fn.empty? + $last_fn = fn fn = "/#{fn}" # lame - { :scheme => "mbox+ssh", :host => srv, :path => fn } + [Redwood::MBox::SSHLoader.suggest_labels_for(fn), + { :scheme => "mbox+ssh", :host => srv, :path => fn }] when :imap, :imaps + $last_server ||= "localhost" srv = axe "What is the IMAP server (host, or host:port notation)?", $last_server return if srv.nil? || srv.empty? $last_server = srv - fn = axe "What's the folder path?", "INBOX" #"srm + + $last_folder ||= "INBOX" + fn = axe "What's the folder path?", $last_folder #"srm return if fn.nil? || fn.empty? - fn = "/#{fn}" # lame + $last_folder = fn - if srv =~ /^(\w+):(\d+)$/ + fn = "/#{fn}" # lame + if srv =~ /^(\S+):(\d+)$/ host, port = $1, $2.to_i else host, port = srv, nil end - { :scheme => type.to_s, :host => host, :port => port, :path => fn } + [Redwood::IMAP.suggest_labels_for(fn), + { :scheme => type.to_s, :host => host, :port => port, :path => fn }] end uri = @@ -96,17 +113,27 @@ def add_source if axe_yes("Try again?") then next else return end end - say "I'm going to add this source: #{uri}." + say "I'm going to add this source: #{uri}" unless axe("Does that look right?", "y") =~ /^y|yes$/i if axe_yes("Try again?") then next else return end end usual = axe_yes "Does this source ever receive new messages?", "y" - archive = usual ? axe_yes("Should those new messages be automatically archived?") : false + archive = usual ? axe_yes("Should new messages be automatically archived? (I.e. not appear in your inbox, though still be accessible via search.)") : false + + labels_str = axe("Enter any labels to be automatically added to all messages from this source, separated by spaces (or 'none')", default_labels.join(",")) + + labels = + if labels_str =~ /^\s*none\s*$/i + nil + else + labels_str.split(/\s+/) + end cmd = build_cmd "sup-add" cmd += " --unusual" unless usual cmd += " --archive" if archive + cmd += " --labels=#{labels.join(',')}" if labels && !labels.empty? cmd += " #{uri}" puts "Ok, trying to run \"#{cmd}\"..." @@ -134,8 +161,7 @@ program. Get ready to be the envy of everyone in your internets with your amazing keyboarding skills! Jump from email to email with nary a click of the mouse! -Just answer these simple questions and you'll be on your way! Press -enter at any point to accept the default answer. +Just answer these simple questions and you'll be on your way. EOS #' stupid ruby-mode @@ -143,7 +169,7 @@ EOS account = $config[:accounts][:default] name = axe "What's your name?", account[:name] -email = axe "What's your email address?", account[:email] #'srm +email = axe "What's your (primary) email address?", account[:email] #'srm say "Ok, your header will look like this:" say " From: #{name} <#{email}>" @@ -161,9 +187,6 @@ $config[:accounts][:default][:alternates] = alts $config[:accounts][:default][:signature] = sigfn $config[:editor] = editor -Redwood::save_yaml_obj $config, Redwood::CONFIG_FN - -say "Ok, I've saved you up a nice lil' #{Redwood::CONFIG_FN}." done = false until done @@ -178,24 +201,48 @@ until done say "\n" choose do |menu| - menu.prompt = "Your wish?" + menu.prompt = "Your wish? " menu.choice("Add a new source.") { add_source } menu.choice("Done adding sources!") { done = true } end end +say "\nSup needs to know where to store your sent messages." +say "Only sources capable of storing mail will be listed.\n\n" + +index.load_sources +if index.sources.empty? + say "\nUsing the default sup://sent, since you haven't configured other sources yet." + $config[:sent_source] = 'sup://sent' +else + # this handles the event that source.yaml already contains the SentLoader + # source. + have_sup_sent = false + + choose do |menu| + menu.prompt = "Store my sent mail in? " + + valid_sents = index.sources.each do |s| + have_sup_sent = true if s.to_s.eql?('sup://sent') + + menu.choice(s.to_s) { $config[:sent_source] = s.to_s } if s.respond_to? :store_message + end + + menu.choice('Default (sup://sent)') { $config[:sent_source] = 'sup://sent'} unless have_sup_sent + + end +end + +Redwood::save_yaml_obj $config, Redwood::CONFIG_FN + +say "Ok, I've saved you up a nice lil' #{Redwood::CONFIG_FN}." + say <