Module: Redwood

Defined in:

lib/sup.rb,
lib/sup/hook.rb,
lib/sup/idle.rb,
lib/sup/mbox.rb,
lib/sup/mode.rb,
lib/sup/poll.rb,
lib/sup/sent.rb,
lib/sup/undo.rb,
lib/sup/draft.rb,
lib/sup/index.rb,
lib/sup/label.rb,
lib/sup/buffer.rb,
lib/sup/crypto.rb,
lib/sup/keymap.rb,
lib/sup/logger.rb,
lib/sup/person.rb,
lib/sup/search.rb,
lib/sup/source.rb,
lib/sup/tagger.rb,
lib/sup/thread.rb,
lib/sup/update.rb,
lib/sup/account.rb,
lib/sup/contact.rb,
lib/sup/maildir.rb,
lib/sup/message.rb,
lib/sup/version.rb,
lib/sup/colormap.rb,
lib/sup/util/uri.rb,
lib/sup/textfield.rb,
lib/sup/util/path.rb,
lib/sup/message_chunks.rb,
lib/sup/modes/log_mode.rb,
lib/sup/modes/help_mode.rb,
lib/sup/modes/poll_mode.rb,
lib/sup/modes/text_mode.rb,
lib/sup/interactive_lock.rb,
lib/sup/modes/inbox_mode.rb,
lib/sup/modes/reply_mode.rb,
lib/sup/modes/resume_mode.rb,
lib/sup/modes/scroll_mode.rb,
lib/sup/modes/compose_mode.rb,
lib/sup/modes/console_mode.rb,
lib/sup/modes/forward_mode.rb,
lib/sup/horizontal_selector.rb,
lib/sup/modes/completion_mode.rb,
lib/sup/modes/label_list_mode.rb,
lib/sup/service/label_service.rb,
lib/sup/modes/buffer_list_mode.rb,
lib/sup/modes/line_cursor_mode.rb,
lib/sup/modes/search_list_mode.rb,
lib/sup/modes/thread_view_mode.rb,
lib/sup/modes/contact_list_mode.rb,
lib/sup/modes/edit_message_mode.rb,
lib/sup/modes/file_browser_mode.rb,
lib/sup/modes/thread_index_mode.rb,
lib/sup/modes/search_results_mode.rb,
lib/sup/modes/edit_message_async_mode.rb,
lib/sup/modes/label_search_results_mode.rb,
lib/sup/modes/person_search_results_mode.rb

Defined Under Namespace

Modules: CanAliasContacts, Chunk, InteractiveLock, LogsStuff, SerializeLabelsNicely, Util Classes: Account, AccountManager, Buffer, BufferListMode, BufferManager, Colormap, CompletionMode, ComposeMode, Console, ConsoleMode, ContactListMode, ContactManager, Container, CryptoManager, DraftLoader, DraftManager, EditMessageAsyncMode, EditMessageMode, FatalSourceError, FileBrowserMode, ForwardMode, HelpMode, HookManager, HorizontalSelector, IdleManager, InboxMode, Index, InputSequenceAborted, Keymap, LabelListMode, LabelManager, LabelSearchResultsMode, LabelService, LineCursorMode, Location, LogMode, Logger, MBox, Maildir, Message, Mode, OutOfSyncSourceError, Person, PersonSearchResultsMode, PollManager, PollMode, ReplyMode, ResumeMode, ScrollMode, SearchListMode, SearchManager, SearchResultsMode, SendmailCommandFailed, SentLoader, SentManager, Source, SourceError, SourceManager, Tagger, TextField, TextMode, Thread, ThreadIndexMode, ThreadSet, ThreadViewMode, UndoManager, UpdateManager

Constant Summary

BASE_DIR =

ENV["SUP_BASE"] || File.join(ENV["HOME"], ".sup")

CONFIG_FN =

File.join(BASE_DIR, "config.yaml")

COLOR_FN =

File.join(BASE_DIR, "colors.yaml")

SOURCE_FN =

File.join(BASE_DIR, "sources.yaml")

LABEL_FN =

File.join(BASE_DIR, "labels.txt")

CONTACT_FN =

File.join(BASE_DIR, "contacts.txt")

DRAFT_DIR =

File.join(BASE_DIR, "drafts")

SENT_FN =

File.join(BASE_DIR, "sent.mbox")

LOCK_FN =

File.join(BASE_DIR, "lock")

SUICIDE_FN =

File.join(BASE_DIR, "please-kill-yourself")

HOOK_DIR =

File.join(BASE_DIR, "hooks")

SEARCH_FN =

File.join(BASE_DIR, "searches.txt")

LOG_FN =

File.join(BASE_DIR, "log")

YAML_DOMAIN =

"masanjin.net"

YAML_DATE =

"2006-10-01"

VERSION =

"0.13.2.1"

Class Method Summary

• .exceptions ⇒ Object

  Returns the value of attribute exceptions.

• .finish ⇒ Object
• .load_config(filename) ⇒ Object

  set up default configuration file.

• .load_yaml_obj(fn, compress = false) ⇒ Object
• .managers ⇒ Object
• .record_exception(e, name) ⇒ Object
• .report_broken_sources(opts = {}) ⇒ Object

  not really a good place for this, so I’ll just dump it here.

• .reporting_thread(name) ⇒ Object
• .save_yaml_obj(o, fn, safe = false, backup = false) ⇒ Object

  one-stop shop for yamliciousness.

• .start ⇒ Object

Class Method Details

.exceptions ⇒ Object

Returns the value of attribute exceptions.

# File 'lib/sup.rb', line 68

def exceptions
  @exceptions
end

.finish ⇒ Object

# File 'lib/sup.rb', line 175

def finish
  Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
  Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
  Redwood::SearchManager.save if Redwood::SearchManager.instantiated?
  Redwood::Logger.remove_sink @log_io

  managers.each { |x| x.deinstantiate! if x.instantiated? }

  @log_io.close
  @log_io = nil
  $config = nil
end

.load_config(filename) ⇒ Object

set up default configuration file

# File 'lib/sup.rb', line 239

def load_config filename
  default_config = {
    :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
    :thread_by_subject => false,
    :edit_signature => false,
    :ask_for_from => false,
    :ask_for_to => true,
    :ask_for_cc => true,
    :ask_for_bcc => false,
    :ask_for_subject => true,
    :account_selector => true,
    :confirm_no_attachments => true,
    :confirm_top_posting => true,
    :jump_to_open_message => true,
    :discard_snippets_from_encrypted_messages => false,
    :load_more_threads_when_scrolling => true,
    :default_attachment_save_dir => "",
    :sent_source => "sup://sent",
    :archive_sent => true,
    :poll_interval => 300,
    :wrap_width => 0,
    :slip_rows => 0,
    :col_jump => 2,
    :stem_language => "english"
  }
  if File.exists? filename
    config = Redwood::load_yaml_obj filename
    abort "#{filename} is not a valid configuration file (it's a #{config.class}, not a hash)" unless config.is_a?(Hash)
    default_config.merge config
  else
    require 'etc'
    require 'socket'
    name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first rescue nil
    name ||= ENV["USER"]
    email = ENV["USER"] + "@" +
      begin
        Socket.gethostbyname(Socket.gethostname).first
      rescue SocketError
        Socket.gethostname
      end

    config = {
      :accounts => {
        :default => {
          :name => name,
          :email => email,
          :alternates => [],
          :sendmail => "/usr/sbin/sendmail -oem -ti",
          :signature => File.join(ENV["HOME"], ".signature"),
          :gpgkey => ""
        }
      },
    }
    config.merge! default_config
    begin
      Redwood::save_yaml_obj config, filename, false, true
    rescue StandardError => e
      $stderr.puts "warning: #{e.message}"
    end
    config
  end
end

.load_yaml_obj(fn, compress = false) ⇒ Object

# File 'lib/sup.rb', line 135

def load_yaml_obj fn, compress=false
  o = if File.exists? fn
    if compress
      Zlib::GzipReader.open(fn) { |f| YAML::load f }
    else
      YAML::load_file fn
    end
  end
  if o.is_a?(Array)
    o.each { |x| x.after_unmarshal! if x.respond_to?(:after_unmarshal!) }
  else
    o.after_unmarshal! if o.respond_to?(:after_unmarshal!)
  end
  o
end

.managers ⇒ Object

# File 'lib/sup.rb', line 151

def managers
  %w(HookManager SentManager ContactManager LabelManager AccountManager
  DraftManager UpdateManager PollManager CryptoManager UndoManager
  SourceManager SearchManager IdleManager).map { |x| Redwood.const_get x.to_sym }
end

.record_exception(e, name) ⇒ Object

# File 'lib/sup.rb', line 69

def record_exception e, name
  @exception_mutex.synchronize do
    @exceptions ||= []
    @exceptions << [e, name]
  end
end

.report_broken_sources(opts = {}) ⇒ Object

not really a good place for this, so I’ll just dump it here.

a source error is either a FatalSourceError or an OutOfSyncSourceError. the superclass SourceError is just a generic.

# File 'lib/sup.rb', line 192

def report_broken_sources opts={}
  return unless BufferManager.instantiated?

  broken_sources = SourceManager.sources.select { |s| s.error.is_a? FatalSourceError }
  unless broken_sources.empty?
    BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
      TextMode.new(<<EOM)
Source error notification
-------------------------

Hi there. It looks like one or more message sources is reporting
errors. Until this is corrected, messages from these sources cannot
be viewed, and new messages will not be detected.

#{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n        ")}.join("\n\n")}
EOM
#' stupid ruby-mode
    end
  end

  desynced_sources = SourceManager.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
  unless desynced_sources.empty?
    BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
      TextMode.new(<<EOM)
Out-of-sync source notification
-------------------------------

Hi there. It looks like one or more sources has fallen out of sync
with my index. This can happen when you modify these sources with
other email clients. (Sorry, I don't play well with others.)

Until this is corrected, messages from these sources cannot be viewed,
and new messages will not be detected. Luckily, this is easy to correct!

#{desynced_sources.map do |s|
"Source: " + s.to_s +
 "\n Error: " + s.error.message.wrap(70).join("\n        ") +
 "\n   Fix: sup-sync --changed #{s.to_s}"
end}
EOM
#' stupid ruby-mode
    end
  end
end

.reporting_thread(name) ⇒ Object

# File 'lib/sup.rb', line 76

def reporting_thread name
  if $opts[:no_threads]
    yield
  else
    ::Thread.new do
      begin
        yield
      rescue Exception => e
        record_exception e, name
      end
    end
  end
end

.save_yaml_obj(o, fn, safe = false, backup = false) ⇒ Object

one-stop shop for yamliciousness

# File 'lib/sup.rb', line 93

def save_yaml_obj o, fn, safe=false, backup=false
  o = if o.is_a?(Array)
    o.map { |x| (x.respond_to?(:before_marshal) && x.before_marshal) || x }
  elsif o.respond_to? :before_marshal
    o.before_marshal
  else
    o
  end

  mode = if File.exists? fn
    File.stat(fn).mode
  else
    0600
  end

  if backup
    backup_fn = fn + '.bak'
    if File.exists?(fn) && File.size(fn) > 0
      File.open(backup_fn, "w", mode) do |f|
        File.open(fn, "r") { |old_f| FileUtils.copy_stream old_f, f }
        f.fsync
      end
    end
    File.open(fn, "w") do |f|
      f.puts o.to_yaml
      f.fsync
    end
  elsif safe
    safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
    File.open(safe_fn, "w", mode) do |f|
      f.puts o.to_yaml
      f.fsync
    end
    FileUtils.mv safe_fn, fn
  else
    File.open(fn, "w", mode) do |f|
      f.puts o.to_yaml
      f.fsync
    end
  end
end

.start ⇒ Object

# File 'lib/sup.rb', line 157

def start
  managers.each { |x| fail "#{x} already instantiated" if x.instantiated? }

  FileUtils.mkdir_p Redwood::BASE_DIR
  $config = load_config Redwood::CONFIG_FN
  @log_io = File.open(Redwood::LOG_FN, 'a')
  Redwood::Logger.add_sink @log_io
  Redwood::HookManager.init Redwood::HOOK_DIR
  Redwood::SentManager.init $config[:sent_source] || 'sup://sent'
  Redwood::ContactManager.init Redwood::CONTACT_FN
  Redwood::LabelManager.init Redwood::LABEL_FN
  Redwood::AccountManager.init $config[:accounts]
  Redwood::DraftManager.init Redwood::DRAFT_DIR
  Redwood::SearchManager.init Redwood::SEARCH_FN

  managers.each { |x| x.init unless x.instantiated? }
end