git.cworth.org Git - sup/blob - lib/sup.rb

   1 require 'rubygems'
   2 require 'yaml'
   3 require 'zlib'
   4 require 'thread'
   5 require 'fileutils'
   6
   7 class Object
   8   ## this is for debugging purposes because i keep calling #id on the
   9   ## wrong object and i want it to throw an exception
  10   def id
  11     raise "wrong id called on #{self.inspect}"
  12   end
  13 end
  14
  15 module Redwood
  16   VERSION = "0.0.5"
  17
  18   BASE_DIR   = ENV["SUP_BASE"] || File.join(ENV["HOME"], ".sup")
  19   CONFIG_FN  = File.join(BASE_DIR, "config.yaml")
  20   SOURCE_FN  = File.join(BASE_DIR, "sources.yaml")
  21   LABEL_FN   = File.join(BASE_DIR, "labels.txt")
  22   PERSON_FN   = File.join(BASE_DIR, "people.txt")
  23   CONTACT_FN = File.join(BASE_DIR, "contacts.txt")
  24   DRAFT_DIR  = File.join(BASE_DIR, "drafts")
  25   SENT_FN    = File.join(BASE_DIR, "sent.mbox")
  26
  27   YAML_DOMAIN = "masanjin.net"
  28   YAML_DATE = "2006-10-01"
  29
  30 ## record exceptions thrown in threads nicely
  31   $exception = nil
  32   def reporting_thread
  33     ::Thread.new do
  34       begin
  35         yield
  36       rescue Exception => e
  37         $exception ||= e
  38         raise
  39       end
  40     end
  41   end
  42   module_function :reporting_thread
  43
  44 ## one-stop shop for yamliciousness
  45   def register_yaml klass, props
  46     vars = props.map { |p| "@#{p}" }
  47     path = klass.name.gsub(/::/, "/")
  48
  49     klass.instance_eval do
  50       define_method(:to_yaml_properties) { vars }
  51       define_method(:to_yaml_type) { "!#{YAML_DOMAIN},#{YAML_DATE}/#{path}" }
  52     end
  53
  54     YAML.add_domain_type("#{YAML_DOMAIN},#{YAML_DATE}", path) do |type, val|
  55       klass.new(*props.map { |p| val[p] })
  56     end
  57   end
  58
  59   def save_yaml_obj object, fn, compress=false
  60     if compress
  61       Zlib::GzipWriter.open(fn) { |f| f.puts object.to_yaml }
  62     else
  63       File.open(fn, "w") { |f| f.puts object.to_yaml }
  64     end
  65   end
  66
  67   def load_yaml_obj fn, compress=false
  68     if File.exists? fn
  69       if compress
  70         Zlib::GzipReader.open(fn) { |f| YAML::load f }
  71       else
  72         YAML::load_file fn
  73       end
  74     end
  75   end
  76
  77   def start
  78     Redwood::PersonManager.new Redwood::PERSON_FN
  79     Redwood::SentManager.new Redwood::SENT_FN
  80     Redwood::ContactManager.new Redwood::CONTACT_FN
  81     Redwood::LabelManager.new Redwood::LABEL_FN
  82     Redwood::AccountManager.new $config[:accounts]
  83     Redwood::DraftManager.new Redwood::DRAFT_DIR
  84     Redwood::UpdateManager.new
  85     Redwood::PollManager.new
  86   end
  87
  88   def finish
  89     Redwood::LabelManager.save
  90     Redwood::ContactManager.save
  91     Redwood::PersonManager.save
  92   end
  93
  94   module_function :register_yaml, :save_yaml_obj, :load_yaml_obj, :start, :finish
  95 end
  96
  97 ## set up default configuration file
  98 if File.exists? Redwood::CONFIG_FN
  99   $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
 100 else
 101   $config = {
 102     :accounts => {
 103       :default => {
 104         :name => "Your Name Here",
 105         :email => "your.email.here@domain.tld",
 106         :alternates => [],
 107         :sendmail => "/usr/sbin/sendmail -oem -ti",
 108         :signature => File.join(ENV["HOME"], ".signature")
 109       }
 110     },
 111     :editor => ENV["EDITOR"] || "/usr/bin/vi",
 112   }
 113   begin
 114     FileUtils.mkdir_p Redwood::BASE_DIR
 115     Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
 116   rescue StandardError => e
 117     $stderr.puts "warning: #{e.message}"
 118   end
 119 end
 120
 121 require "sup/util"
 122 require "sup/update"
 123 require "sup/message"
 124 require "sup/source"
 125 require "sup/mbox"
 126 require "sup/imap"
 127 require "sup/person"
 128 require "sup/account"
 129 require "sup/thread"
 130 require "sup/index"
 131 require "sup/textfield"
 132 require "sup/buffer"
 133 require "sup/keymap"
 134 require "sup/mode"
 135 require "sup/colormap"
 136 require "sup/label"
 137 require "sup/contact"
 138 require "sup/tagger"
 139 require "sup/draft"
 140 require "sup/poll"
 141 require "sup/modes/scroll-mode"
 142 require "sup/modes/text-mode"
 143 require "sup/modes/line-cursor-mode"
 144 require "sup/modes/help-mode"
 145 require "sup/modes/edit-message-mode"
 146 require "sup/modes/compose-mode"
 147 require "sup/modes/resume-mode"
 148 require "sup/modes/forward-mode"
 149 require "sup/modes/reply-mode"
 150 require "sup/modes/label-list-mode"
 151 require "sup/modes/contact-list-mode"
 152 require "sup/modes/thread-view-mode"
 153 require "sup/modes/thread-index-mode"
 154 require "sup/modes/label-search-results-mode"
 155 require "sup/modes/search-results-mode"
 156 require "sup/modes/person-search-results-mode"
 157 require "sup/modes/inbox-mode"
 158 require "sup/modes/buffer-list-mode"
 159 require "sup/modes/log-mode"
 160 require "sup/modes/poll-mode"
 161 require "sup/logger"
 162 require "sup/sent"
 163
 164 module Redwood
 165   def log s; Logger.log s; end
 166   module_function :log
 167 end
 168
 169 $:.each do |base|
 170   d = File.join base, "sup/share/modes/"
 171   Redwood::Mode.load_all_modes d if File.directory? d
 172 end