sup

bin/sup-config (6765B) - raw

 #!/usr/bin/env ruby
 
 $:.unshift File.join(File.dirname(__FILE__), *%w[.. lib])
 
 require 'optimist'
 require "sup"
 require 'sup/util/axe'
 
 $opts = Optimist::options do
   version "sup-config (sup #{Redwood::VERSION})"
   banner <<EOS
 Interactive configuration tool for Sup. Won't destroy existing
 configuration.
 
 Usage:
   sup-config
 
 No options.
 EOS
 end
 
 def build_cmd cmd
   (ENV["RUBY_INVOCATION"] ? ENV["RUBY_INVOCATION"] + " " : "") + File.join(File.dirname($0), cmd)
 end
 
 def add_source
   require "sup/util/uri"
 
   type = nil
 
   @cli.say "Ok, adding a new source."
   @cli.choose do |menu|
     menu.prompt = "What type of mail source is it? "
     menu.choice("mbox file") { type = :mbox }
     menu.choice("maildir directory") { type = :maildir }
     menu.choice("Get me out of here!") { return }
   end
 
   while true do
     @cli.say "Ok, now for the details."
 
     default_labels, components = case type
     when :mbox
       $last_fn ||= ENV["MAIL"]
       fn = axe "What's the full path to the mbox file?", $last_fn
       return if fn.nil? || fn.empty?
 
       $last_fn = fn
       [Redwood::MBox.suggest_labels_for(fn),
        { :scheme => "mbox", :path => fn }]
     when :maildir
       $last_fn ||= ENV["MAIL"]
       fn = axe "What's the full path to the maildir directory?", $last_fn
       return if fn.nil? || fn.empty?
 
       $last_fn = fn
       [Redwood::Maildir.suggest_labels_for(fn),
        { :scheme => "maildir", :path => fn }]
     end
 
     uri = begin
       Redwood::Util::Uri.build components
     rescue URI::Error => e
       @cli.say "Whoopsie! I couldn't build a URI from that: #{e.message}"
       if axe_yes("Try again?") then next else return end
     end
 
     @cli.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 new messages be automatically archived? (I.e. not appear in your inbox, though still be accessible via search.)") : false
 
     sync_back = (type == :maildir) ? axe_yes("Should the original Maildir messages be modified to reflect changes like read status, starred messages, etc.?", "y") : 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 += " --no-sync-back" unless sync_back
     cmd += " --labels=#{labels.join(',')}" if labels && !labels.empty?
     cmd += " #{uri}"
 
     puts "Ok, trying to run \"#{cmd}\"..."
 
     system cmd
     if $?.success?
       @cli.say "Great! Added!"
       break
     else
       @cli.say "Rats, that failed. You may have to do it manually."
       if axe_yes("Try again?") then next else return end
     end
   end
 end
 
 @cli.wrap_at = :auto
 Redwood::start
 index = Redwood::Index.init
 Redwood::SourceManager.load_sources
 
 @cli.say <<EOS
 Howdy neighbor! This here's sup-config, ready to help you jack in to
 the next generation of digital cyberspace: the text-based email
 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.
 
 EOS
 
 account = $config[:accounts][:default]
 
 name = axe "What's your name?", account[:name]
 email = axe "What's your (primary) email address?", account[:email]
 
 @cli.say "Ok, your from header will look like this:"
 @cli.say "  From: #{name} <#{email}>"
 
 @cli.say "\nDo you have any alternate email addresses that also receive email?"
 @cli.say "If so, enter them now, separated by spaces."
 alts = axe("Alternate email addresses", account[:alternates].join(" ")).split(/\s+/)
 
 sigfn = axe "What file contains your signature?", account[:signature]
 editor = axe "What editor would you like to use?", $config[:editor]
 
 time_mode = axe "Would like to display time in 12h (type 12h) or in 24h (type 24h)?", $config[:time_mode]
 
 $config[:accounts][:default][:name] = name
 $config[:accounts][:default][:email] = email
 $config[:accounts][:default][:alternates] = alts
 $config[:accounts][:default][:signature] = sigfn
 $config[:editor] = editor
 $config[:time_mode] = time_mode
 
 done = false
 until done
   @cli.say "\nNow, we'll tell Sup where to find all your email."
   Redwood::SourceManager.load_sources
   @cli.say "Current sources:"
   if Redwood::SourceManager.sources.empty?
     @cli.say "  No sources!"
   else
     Redwood::SourceManager.sources.each { |s| puts "* #{s}" }
   end
 
   @cli.say "\n"
   @cli.choose do |menu|
     menu.prompt = "Your wish? "
     menu.choice("Add a new source.") { add_source }
     menu.choice("Done adding sources!") { done = true }
   end
 end
 
 @cli.say "\nSup needs to know where to store your sent messages."
 @cli.say "Only sources capable of storing mail will be listed.\n\n"
 
 Redwood::SourceManager.load_sources
 if Redwood::SourceManager.sources.empty?
   @cli.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
 
   @cli.choose do |menu|
     menu.prompt = "Store my sent mail in? "
 
     menu.choice('Default (an mbox in ~/.sup, aka sup://sent)') { $config[:sent_source] = 'sup://sent'} unless have_sup_sent
 
     valid_sents = Redwood::SourceManager.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
   end
 end
 
 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN, false, true
 
 @cli.say "Ok, I've saved you up a nice lil' #{Redwood::CONFIG_FN}."
 
 @cli.say <<EOS
 
 The final step is to import all your messages into the Sup index.
 Depending on how many messages are in the sources, this could take
 quite a while.
 
 EOS
 
 if axe_yes "Run sup-sync to import all messages now?"
   while true
     cmd = build_cmd("sup-sync") + " --all-sources"
     puts "Ok, trying to run \"#{cmd}\"..."
     system cmd
     if $?.success?
       @cli.say "Great! It worked!"
       break
     else
       @cli.say "Rats, that failed. You may have to do it manually."
       if axe_yes("Try again?") then next else break end
     end
   end
 end
 
 index.load
 
 @cli.say <<EOS
 
 Okee doke, you've got yourself an index of #{index.size} messages. Looks
 like you're ready to jack in to cyberspace there, cowboy.
 
 Just one last command:
 
   #{build_cmd "sup"}
 
 Have fun!
 EOS