sup 0.0.1

data/lib/sup/mode.rb

@@ -0,0 +1,79 @@
+module Redwood
+
+class Mode
+  attr_accessor :buffer
+  @@keymaps = {}
+
+  def self.register_keymap keymap=nil, &b
+    keymap = Keymap.new(&b) if keymap.nil?
+    @@keymaps[self] = keymap
+  end
+
+  def initialize
+    @buffer = nil
+  end
+
+  def self.make_name s; s.gsub(/.*::/, "").camel_to_hyphy; end
+  def name; Mode.make_name self.class.name; end
+
+  def self.load_all_modes dir
+    Dir[File.join(dir, "*.rb")].each do |f|
+      $stderr.puts "## loading mode #{f}"
+      require f
+    end
+  end
+
+  def draw; end
+  def focus; end
+  def blur; end
+  def status; ""; end
+  def resize rows, cols; end
+  def cleanup
+    @buffer = nil
+  end
+
+  ## turns an input keystroke into an action symbol
+  def resolve_input c
+    ## try all keymaps in order of age
+    action = nil
+    klass = self.class
+
+    ancestors.each do |klass|
+      action = @@keymaps.member?(klass) && @@keymaps[klass].action_for(c)
+      return action if action
+    end
+
+    nil
+  end
+
+  def handle_input c
+    if(action = resolve_input c)
+      send action
+      true
+    else
+      false
+    end
+  end
+
+  def help_text
+    used_keys = {}
+    ancestors.map do |klass|
+      km = @@keymaps[klass] or next
+      title = "Keybindings from #{Mode.make_name klass.name}"
+      s = <<EOS
+#{title}
+#{'-' * title.length}
+
+#{km.help_text used_keys}
+EOS
+      begin
+        used_keys.merge! km.keysyms.to_boolean_h
+      rescue ArgumentError
+        raise km.keysyms.inspect
+      end
+      s
+    end.compact.join "\n"
+  end
+end
+
+end

data/lib/sup/modes/buffer-list-mode.rb

@@ -0,0 +1,37 @@
+module Redwood
+
+class BufferListMode < LineCursorMode
+  register_keymap do |k|
+    k.add :jump_to_buffer, "Jump to that buffer", :enter
+    k.add :reload, "Reload", "R"
+  end
+
+  def initialize
+    regen_text
+    super
+  end
+
+  def lines; @text.length; end
+  def [] i; @text[i]; end
+
+protected
+
+  def reload
+    regen_text
+    buffer.mark_dirty
+  end
+
+  def regen_text
+    @bufs = BufferManager.buffers.sort_by { |name, buf| name }
+    width = @bufs.map { |name, buf| name.length }.max
+    @text = @bufs.map do |name, buf|
+      sprintf "%#{width}s  %s", name, buf.mode.name
+    end
+  end
+
+  def jump_to_buffer
+    BufferManager.raise_to_front @bufs[curpos][1]
+  end
+end
+
+end

data/lib/sup/modes/compose-mode.rb

@@ -0,0 +1,33 @@
+module Redwood
+
+class ComposeMode < EditMessageMode
+  attr_reader :body, :header
+
+  def initialize h={}
+    super()
+    @header = {
+      "From" => AccountManager.default_account.full_address,
+      "Message-Id" => gen_message_id,
+    }
+
+    @header["To"] = [h[:to]].flatten.compact.map { |p| p.full_address }
+    @body = sig_lines
+    regen_text
+  end
+
+  def lines; @text.length; end
+  def [] i; @text[i]; end
+
+protected
+
+  def handle_new_text new_header, new_body
+    @header = new_header
+    @body = new_body
+  end
+
+  def regen_text
+    @text = header_lines(@header - EditMessageMode::NON_EDITABLE_HEADERS) + [""] + @body
+  end
+end
+
+end

data/lib/sup/modes/contact-list-mode.rb

@@ -0,0 +1,121 @@
+module Redwood
+
+class ContactListMode < LineCursorMode
+  LOAD_MORE_CONTACTS_NUM = 10
+
+  register_keymap do |k|
+    k.add :load_more, "Load #{LOAD_MORE_CONTACTS_NUM} more contacts", 'M'
+    k.add :reload, "Reload contacts", 'R'
+    k.add :alias, "Edit alias for contact", 'a'
+    k.add :toggle_tagged, "Tag/untag current line", 't'
+    k.add :apply_to_tagged, "Apply next command to all tagged items", ';'
+    k.add :search, "Search for messages from particular people", 'S'
+  end
+
+  def initialize mode = :regular
+    @mode = mode
+    @tags = Tagger.new self
+    reload
+    super()
+  end
+
+  def lines; @text.length; end
+  def [] i; @text[i]; end
+
+  def toggle_tagged
+    p = @contacts[curpos] or return
+    @tags.toggle_tag_for p
+    update_text_for_line curpos
+    cursor_down
+  end
+
+  def multi_toggle_tagged threads
+    @tags.drop_all_tags
+    regen_text
+  end
+
+  def apply_to_tagged; @tags.apply_to_tagged; end
+
+  def load; regen_text; end
+  def load_more
+    @num += LOAD_MORE_CONTACTS_NUM
+    regen_text
+    BufferManager.flash "Loaded #{LOAD_MORE_CONTACTS_NUM} more contacts."
+  end
+
+  def multi_select people
+    case @mode
+    when :regular
+      mode = ComposeMode.new :to => people
+      BufferManager.spawn "new message", mode
+      mode.edit
+    end
+  end
+
+  def select
+    p = @contacts[curpos] or return
+    multi_select [p]
+  end
+
+  def multi_search people
+    mode = PersonSearchResultsMode.new people
+    BufferManager.spawn "personal search results", mode
+    mode.load_more_threads mode.buffer.content_height
+  end
+
+  def search
+    p = @contacts[curpos] or return
+    multi_search [p]
+  end    
+
+  def reload
+    @tags.drop_all_tags
+    @num = LOAD_MORE_CONTACTS_NUM
+    load
+  end
+
+  def alias
+    p = @contacts[curpos] or return
+    a = BufferManager.ask(:alias, "alias for #{p.longname}: ", @user_contacts[p]) or return
+    if a.empty?
+      ContactManager.drop_contact p
+    else
+      ContactManager.set_contact p, a
+      @user_contacts[p] = a
+      update_text_for_line curpos
+    end
+  end
+
+protected
+
+  def update_text_for_line line
+    @text[line] = text_for_contact @contacts[line]
+    buffer.mark_dirty
+  end
+
+  def text_for_contact p
+    aalias = @user_contacts[p] || ""
+    [[:tagged_color, @tags.tagged?(p) ? ">" : " "],
+     [:none, sprintf("%-#{@awidth}s %-#{@nwidth}s %s", aalias, p.name, p.email)]]
+  end
+
+  def regen_text
+    @user_contacts = ContactManager.contacts.invert
+    recent = Index.load_contacts AccountManager.user_emails,
+                                 :num => @num
+    
+    @contacts = (@user_contacts.keys + recent.select { |p| !@user_contacts[p] }).sort_by { |p| p.sort_by_me + (p.name || "") + p.email }.remove_successive_dupes
+
+    @awidth, @nwidth = 0, 0
+    @contacts.each do |p|
+      aalias = @user_contacts[p]
+      @awidth = aalias.length if aalias && aalias.length > @awidth
+      @nwidth = p.name.length if p.name && p.name.length > @nwidth
+    end
+
+    @text = @contacts.map { |p| text_for_contact p }
+    buffer.mark_dirty if buffer
+  end
+end
+
+end

data/lib/sup/modes/edit-message-mode.rb

@@ -0,0 +1,162 @@
+require 'tempfile'
+require 'socket' # just for gethostname!
+
+module Redwood
+
+class EditMessageMode < LineCursorMode
+  FORCE_HEADERS = %w(From To Cc Bcc Subject)
+  MULTI_HEADERS = %w(To Cc Bcc)
+  NON_EDITABLE_HEADERS = %w(Message-Id Date)
+
+  attr_reader :status
+
+  register_keymap do |k|
+    k.add :send_message, "Send message", 'y'
+    k.add :edit, "Edit message", 'e', :enter
+    k.add :save_as_draft, "Save as draft", 'P'
+  end
+
+  def initialize *a
+    super
+    @attachments = []
+    @edited = false
+  end
+
+  def edit
+    @file = Tempfile.new "redwood.#{self.class.name.camel_to_hyphy}"
+    @file.puts header_lines(header - NON_EDITABLE_HEADERS)
+    @file.puts
+    @file.puts body
+    @file.close
+
+    editor = $config[:editor] || ENV['EDITOR'] || "/usr/bin/vi"
+
+    mtime = File.mtime @file.path
+    BufferManager.shell_out "#{editor} #{@file.path}"
+    @edited = true if File.mtime(@file.path) > mtime
+
+    new_header, new_body = parse_file(@file.path)
+    NON_EDITABLE_HEADERS.each { |h| new_header[h] = header[h] if header[h] }
+    handle_new_text new_header, new_body
+    update
+  end
+
+protected
+
+  def gen_message_id
+    "<#{Time.now.to_i}-redwood-#{rand 10000}@#{Socket.gethostname}>"
+  end
+
+  def update
+    regen_text
+    buffer.mark_dirty
+  end
+
+  def parse_file fn
+    File.open(fn) do |f|
+      header = MBox::read_header f
+      body = MBox::read_body f
+
+      header.delete_if { |k, v| NON_EDITABLE_HEADERS.member? k }
+      header.each do |k, v|
+        next unless MULTI_HEADERS.include?(k) && !v.empty?
+        header[k] = v.split_on_commas.map do |name|
+          (p = ContactManager.resolve(name)) && p.full_address || name
+        end
+      end
+
+      [header, body]
+    end
+  end
+
+  def header_lines header
+    force_headers = FORCE_HEADERS.map { |h| make_lines "#{h}:", header[h] }
+    other_headers = (header.keys - FORCE_HEADERS).map do |h|
+      make_lines "#{h}:", header[h]
+    end
+
+    (force_headers + other_headers).flatten.compact
+  end
+
+  def make_lines header, things
+    case things
+    when nil, []
+      [header + " "]
+    when String
+      [header + " " + things]
+    else
+      if things.empty?
+        [header]
+      else
+        things.map_with_index do |name, i|
+          raise "an array: #{name.inspect} (things #{things.inspect})" if Array === name
+          if i == 0
+            header + " " + name
+          else
+            (" " * (header.length + 1)) + name
+          end + (i == things.length - 1 ? "" : ",")
+        end
+      end
+    end
+  end
+
+  def send_message
+    return false unless @edited || BufferManager.ask_yes_or_no("message unedited---really send?")
+
+    raise "no message id!" unless header["Message-Id"]
+    date = Time.now
+    from_email = 
+      if header["From"] =~ /<?(\S+@(\S+?))>?$/
+        $1
+      else
+        AccountManager.default_account.email
+      end
+
+    sendmail = AccountManager.account_for(from_email).sendmail
+    raise "nil sendmail" unless sendmail
+    SentManager.write_sent_message(date, from_email) { |f| write_message f, true, date }
+    BufferManager.flash "sending..."
+
+    IO.popen(sendmail, "w") { |p| write_message p, true, date }
+
+    BufferManager.kill_buffer buffer
+    BufferManager.flash "Message sent!"
+    true
+  end
+
+  def save_as_draft
+    DraftManager.write_draft { |f| write_message f, false }
+    BufferManager.kill_buffer buffer
+    BufferManager.flash "Saved for later editing."
+  end
+
+  def sig_lines
+    sigfn = (AccountManager.account_for(header["From"]) || 
+             AccountManager.default_account).sig_file
+
+    if sigfn && File.exists?(sigfn)
+      ["", "-- "] + File.readlines(sigfn).map { |l| l.chomp }
+    else
+      []
+    end
+  end
+
+  def write_message f, full_header=true, date=Time.now
+    raise ArgumentError, "no pre-defined date: header allowed" if header["Date"]
+    f.puts header_lines(header)
+    f.puts "Date: #{date.rfc2822}"
+    if full_header
+      f.puts <<EOS
+Mime-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+User-Agent: Redwood/#{Redwood::VERSION}
+EOS
+    end
+
+    f.puts
+    f.puts @body
+  end  
+end
+
+end

data/lib/sup/modes/forward-mode.rb

@@ -0,0 +1,38 @@
+module Redwood
+
+class ForwardMode < EditMessageMode
+  attr_reader :body, :header
+
+  def initialize m
+    super()
+    @header = {
+      "From" => AccountManager.default_account.full_address,
+      "Subject" => "Fwd: #{m.subj}",
+      "Message-Id" => gen_message_id,
+    }
+    @body = forward_body_lines(m) + sig_lines
+    regen_text
+  end
+
+  def lines; @text.length; end
+  def [] i; @text[i]; end
+
+protected
+
+  def forward_body_lines m
+    ["--- Begin forwarded message from #{m.from.mediumname} ---"] + 
+      m.basic_header_lines + [""] + m.basic_body_lines +
+      ["--- End forwarded message ---"]
+  end
+
+  def handle_new_text new_header, new_body
+    @header = new_header
+    @body = new_body
+  end
+
+  def regen_text
+    @text = header_lines(@header - NON_EDITABLE_HEADERS) + [""] + @body
+  end
+end
+
+end