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/util/query.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")

SYNC_OK_FN =

File.join(BASE_DIR, "sync-back-ok")

YAML_DOMAIN =

"supmua.org"

LEGACY_YAML_DOMAIN =

"masanjin.net"

YAML_DATE =

"2006-10-01"

MAILDIR_SYNC_CHECK_SKIPPED =

'SKIPPED'

VERSION =

"0.15.0"

Class Method Summary

• .check_syncback_settings ⇒ Object
• .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(bypass_sync_check = false) ⇒ Object
• .warn_syncback(details) ⇒ Object

Class Method Details

.check_syncback_settings ⇒ Object

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

def check_syncback_settings
  # don't check if syncback was never performed
  return unless File.exists? Redwood::SYNC_OK_FN
  active_sync_sources = File.readlines(Redwood::SYNC_OK_FN).collect { |e| e.strip }.find_all { |e| not e.empty? }
  return if active_sync_sources.length == 1 and active_sync_sources[0] == Redwood::MAILDIR_SYNC_CHECK_SKIPPED
  sources = SourceManager.sources
  newly_synced = sources.select { |s| s.is_a? Maildir and s.sync_back_enabled? and not active_sync_sources.include? s.uri }
  unless newly_synced.empty?

    details =<<EOS
It appears that the option "sync_back" of the following source(s)
has been changed from false to true since the last execution of
sup:

EOS
    newly_synced.each do |s|
      details += "#{s} (usual: #{s.usual})\n"
    end

    Redwood.warn_syncback details
  end
end

.exceptions ⇒ Object

Returns the value of attribute exceptions.

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

def exceptions
  @exceptions
end

.finish ⇒ Object

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

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 312

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",
    :sync_back_to_maildir => false
  }
  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.force_encoding($encoding).fix_encoding! rescue nil
    name ||= ENV["USER"]
    email = ENV["USER"] + "@" +
      begin
        Socket.gethostbyname(Socket.gethostname).first
      rescue SocketError
        Socket.gethostname
      end

    config = {
      :accounts => {
        :default => {
          :name => name.dup.fix_encoding!,
          :email => email.dup.fix_encoding!,
          :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 140

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 156

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 74

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 265

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 81

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 98

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(bypass_sync_check = false) ⇒ Object

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

def start bypass_sync_check = false
  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? }

  return if bypass_sync_check

  if $config[:sync_back_to_maildir]
    if not File.exists? Redwood::SYNC_OK_FN
      Redwood.warn_syncback <<EOS
It appears that the "sync_back_to_maildir" option has been changed
from false to true since the last execution of sup.
EOS
      $stderr.puts <<EOS

Should I complain about this again? (Y/n)
EOS
      File.open(Redwood::SYNC_OK_FN, 'w') {|f| f.write(Redwood::MAILDIR_SYNC_CHECK_SKIPPED) } if STDIN.gets.chomp.downcase == 'n'
    end
  elsif not $config[:sync_back_to_maildir] and File.exists? Redwood::SYNC_OK_FN
    File.delete(Redwood::SYNC_OK_FN)
  end
end

.warn_syncback(details) ⇒ Object

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

def self.warn_syncback details
  $stderr.puts <<EOS
WARNING
-------

#{details}

It is *strongly* recommended that you run "sup-sync-back-maildir"
before continuing, otherwise you might lose changes you have made in sup
to your Xapian index.

This script should be run each time you change the
"sync_back_to_maildir" flag in config.yaml from false to true or
the "sync_back" flag is changed to true for a source in sources.yaml.

Please run "sup-sync-back-maildir -h" for more information and why this
is needed.

Note that if you have any sources that are not marked as 'ususal' in
sources.yaml you need to manually specify them when running  the
sup-sync-back-maildir script.

Are you really sure you want to continue? (y/N)
EOS
  abort "Aborted" unless STDIN.gets.chomp.downcase == 'y'
end