14 ## this is for debugging purposes because i keep calling #id on the
15 ## wrong object and i want it to throw an exception
17 raise "wrong id called on #{self.inspect}"
22 def yaml_properties *props
23 props = props.map { |p| p.to_s }
24 vars = props.map { |p| "@#{p}" }
26 path = klass.name.gsub(/::/, "/")
28 klass.instance_eval do
29 define_method(:to_yaml_properties) { vars }
30 define_method(:to_yaml_type) { "!#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}/#{path}" }
33 YAML.add_domain_type("#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}", path) do |type, val|
34 klass.new(*props.map { |p| val[p] })
42 BASE_DIR = ENV["SUP_BASE"] || File.join(ENV["HOME"], ".sup")
43 CONFIG_FN = File.join(BASE_DIR, "config.yaml")
44 COLOR_FN = File.join(BASE_DIR, "colors.yaml")
45 SOURCE_FN = File.join(BASE_DIR, "sources.yaml")
46 LABEL_FN = File.join(BASE_DIR, "labels.txt")
47 CONTACT_FN = File.join(BASE_DIR, "contacts.txt")
48 DRAFT_DIR = File.join(BASE_DIR, "drafts")
49 SENT_FN = File.join(BASE_DIR, "sent.mbox")
50 LOCK_FN = File.join(BASE_DIR, "lock")
51 SUICIDE_FN = File.join(BASE_DIR, "please-kill-yourself")
52 HOOK_DIR = File.join(BASE_DIR, "hooks")
54 YAML_DOMAIN = "masanjin.net"
55 YAML_DATE = "2006-10-01"
57 DEFAULT_INDEX = 'ferret'
59 ## record exceptions thrown in threads nicely
61 @exception_mutex = Mutex.new
63 attr_reader :exceptions
64 def record_exception e, name
65 @exception_mutex.synchronize do
67 @exceptions << [e, name]
71 def reporting_thread name
79 record_exception e, name
85 module_function :reporting_thread, :record_exception, :exceptions
87 ## one-stop shop for yamliciousness
88 def save_yaml_obj o, fn, safe=false
90 o.map { |x| (x.respond_to?(:before_marshal) && x.before_marshal) || x }
91 elsif o.respond_to? :before_marshal
98 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
99 mode = File.stat(fn).mode if File.exists? fn
100 File.open(safe_fn, "w", mode) { |f| f.puts o.to_yaml }
101 FileUtils.mv safe_fn, fn
103 File.open(fn, "w") { |f| f.puts o.to_yaml }
107 def load_yaml_obj fn, compress=false
108 o = if File.exists? fn
110 Zlib::GzipReader.open(fn) { |f| YAML::load f }
116 o.each { |x| x.after_unmarshal! if x.respond_to?(:after_unmarshal!) }
118 o.after_unmarshal! if o.respond_to?(:after_unmarshal!)
124 Redwood::SentManager.init $config[:sent_source] || 'sup://sent'
125 Redwood::ContactManager.init Redwood::CONTACT_FN
126 Redwood::LabelManager.init Redwood::LABEL_FN
127 Redwood::AccountManager.init $config[:accounts]
128 Redwood::DraftManager.init Redwood::DRAFT_DIR
129 Redwood::UpdateManager.init
130 Redwood::PollManager.init
131 Redwood::CryptoManager.init
132 Redwood::UndoManager.init
133 Redwood::SourceManager.init
137 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
138 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
139 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
142 ## not really a good place for this, so I'll just dump it here.
144 ## a source error is either a FatalSourceError or an OutOfSyncSourceError.
145 ## the superclass SourceError is just a generic.
146 def report_broken_sources opts={}
147 return unless BufferManager.instantiated?
149 broken_sources = SourceManager.sources.select { |s| s.error.is_a? FatalSourceError }
150 unless broken_sources.empty?
151 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
153 Source error notification
154 -------------------------
156 Hi there. It looks like one or more message sources is reporting
157 errors. Until this is corrected, messages from these sources cannot
158 be viewed, and new messages will not be detected.
160 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
166 desynced_sources = SourceManager.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
167 unless desynced_sources.empty?
168 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
170 Out-of-sync source notification
171 -------------------------------
173 Hi there. It looks like one or more sources has fallen out of sync
174 with my index. This can happen when you modify these sources with
175 other email clients. (Sorry, I don't play well with others.)
177 Until this is corrected, messages from these sources cannot be viewed,
178 and new messages will not be detected. Luckily, this is easy to correct!
180 #{desynced_sources.map do |s|
181 "Source: " + s.to_s +
182 "\n Error: " + s.error.message.wrap(70).join("\n ") +
183 "\n Fix: sup-sync --changed #{s.to_s}"
191 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
192 :report_broken_sources
195 ## set up default configuration file
196 if File.exists? Redwood::CONFIG_FN
197 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
198 abort "#{Redwood::CONFIG_FN} is not a valid configuration file (it's a #{$config.class}, not a hash)" unless $config.is_a?(Hash)
202 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first rescue nil
204 email = ENV["USER"] + "@" +
206 Socket.gethostbyname(Socket.gethostname).first
217 :sendmail => "/usr/sbin/sendmail -oem -ti",
218 :signature => File.join(ENV["HOME"], ".signature")
221 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
222 :thread_by_subject => false,
223 :edit_signature => false,
225 :ask_for_bcc => false,
226 :ask_for_subject => true,
227 :confirm_no_attachments => true,
228 :confirm_top_posting => true,
229 :discard_snippets_from_encrypted_messages => false,
230 :default_attachment_save_dir => "",
231 :sent_source => "sup://sent"
234 FileUtils.mkdir_p Redwood::BASE_DIR
235 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
236 rescue StandardError => e
237 $stderr.puts "warning: #{e.message}"
244 ## we have to initialize this guy first, because other classes must
245 ## reference it in order to register hooks, and they do that at parse
247 Redwood::HookManager.init Redwood::HOOK_DIR
249 ## everything we need to get logging working
251 Redwood::Logger.init.add_sink $stderr
252 include Redwood::LogsStuff
254 ## determine encoding and character set
255 $encoding = Locale.current.charset
257 debug "using character set encoding #{$encoding.inspect}"
259 warn "can't find character set by using locale, defaulting to utf-8"
266 require "sup/modes/scroll-mode"
267 require "sup/modes/text-mode"
268 require "sup/modes/log-mode"
270 require "sup/message-chunks"
271 require "sup/message"
274 require "sup/maildir"
277 require "sup/account"
279 require "sup/interactive-lock"
281 require "sup/textfield"
282 require "sup/colormap"
284 require "sup/contact"
290 require "sup/horizontal-selector"
291 require "sup/modes/line-cursor-mode"
292 require "sup/modes/help-mode"
293 require "sup/modes/edit-message-mode"
294 require "sup/modes/compose-mode"
295 require "sup/modes/resume-mode"
296 require "sup/modes/forward-mode"
297 require "sup/modes/reply-mode"
298 require "sup/modes/label-list-mode"
299 require "sup/modes/contact-list-mode"
300 require "sup/modes/thread-view-mode"
301 require "sup/modes/thread-index-mode"
302 require "sup/modes/label-search-results-mode"
303 require "sup/modes/search-results-mode"
304 require "sup/modes/person-search-results-mode"
305 require "sup/modes/inbox-mode"
306 require "sup/modes/buffer-list-mode"
307 require "sup/modes/poll-mode"
308 require "sup/modes/file-browser-mode"
309 require "sup/modes/completion-mode"
313 d = File.join base, "sup/share/modes/"
314 Redwood::Mode.load_all_modes d if File.directory? d