git.cworth.org Git - sup/blob - lib/sup/modes/compose-mode.rb

   1 module Redwood
   2
   3 class ComposeMode < EditMessageMode
   4   def initialize opts={}
   5     header = {}
   6     header["From"] = (opts[:from] || AccountManager.default_account).full_address
   7     header["To"] = opts[:to].map { |p| p.full_address }.join(", ") if opts[:to]
   8     header["Cc"] = opts[:cc].map { |p| p.full_address }.join(", ") if opts[:cc]
   9     header["Bcc"] = opts[:bcc].map { |p| p.full_address }.join(", ") if opts[:bcc]
  10     header["Subject"] = opts[:subj] if opts[:subj]
  11     header["References"] = opts[:refs].map { |r| "<#{r}>" }.join(" ") if opts[:refs]
  12     header["In-Reply-To"] = opts[:replytos].map { |r| "<#{r}>" }.join(" ") if opts[:replytos]
  13
  14     super :header => header, :body => (opts[:body] || [])
  15   end
  16
  17   def edit_message
  18     edited = super
  19     BufferManager.kill_buffer self.buffer unless edited
  20     edited
  21   end
  22
  23   def self.spawn_nicely opts={}
  24     to = opts[:to] || BufferManager.ask_for_contacts(:people, "To: ", [opts[:to_default]]) or return
  25     cc = opts[:cc] || (BufferManager.ask_for_contacts(:people, "Cc: ") or return if $config[:ask_for_cc])
  26     bcc = opts[:bcc] || (BufferManager.ask_for_contacts(:people, "Bcc: ") or return if $config[:ask_for_bcc])
  27     subj = opts[:subj] || (BufferManager.ask(:subject, "Subject: ") or return if $config[:ask_for_subject])
  28
  29     mode = ComposeMode.new :from => opts[:from], :to => to, :cc => cc, :bcc => bcc, :subj => subj
  30     BufferManager.spawn "New Message", mode
  31     mode.edit_message
  32   end
  33 end
  34
  35 end