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 object, fn, safe=false
90 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
91 mode = File.stat(fn).mode if File.exists? fn
92 File.open(safe_fn, "w", mode) { |f| f.puts object.to_yaml }
93 FileUtils.mv safe_fn, fn
95 File.open(fn, "w") { |f| f.puts object.to_yaml }
99 def load_yaml_obj fn, compress=false
102 Zlib::GzipReader.open(fn) { |f| YAML::load f }
110 Redwood::SentManager.new $config[:sent_source] || 'sup://sent'
111 Redwood::ContactManager.new Redwood::CONTACT_FN
112 Redwood::LabelManager.new Redwood::LABEL_FN
113 Redwood::AccountManager.new $config[:accounts]
114 Redwood::DraftManager.new Redwood::DRAFT_DIR
115 Redwood::UpdateManager.new
116 Redwood::PollManager.new
117 Redwood::SuicideManager.new Redwood::SUICIDE_FN
118 Redwood::CryptoManager.new
119 Redwood::UndoManager.new
120 Redwood::SourceManager.new
124 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
125 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
126 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
129 ## not really a good place for this, so I'll just dump it here.
131 ## a source error is either a FatalSourceError or an OutOfSyncSourceError.
132 ## the superclass SourceError is just a generic.
133 def report_broken_sources opts={}
134 return unless BufferManager.instantiated?
136 broken_sources = SourceManager.sources.select { |s| s.error.is_a? FatalSourceError }
137 unless broken_sources.empty?
138 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
140 Source error notification
141 -------------------------
143 Hi there. It looks like one or more message sources is reporting
144 errors. Until this is corrected, messages from these sources cannot
145 be viewed, and new messages will not be detected.
147 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
153 desynced_sources = SourceManager.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
154 unless desynced_sources.empty?
155 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
157 Out-of-sync source notification
158 -------------------------------
160 Hi there. It looks like one or more sources has fallen out of sync
161 with my index. This can happen when you modify these sources with
162 other email clients. (Sorry, I don't play well with others.)
164 Until this is corrected, messages from these sources cannot be viewed,
165 and new messages will not be detected. Luckily, this is easy to correct!
167 #{desynced_sources.map do |s|
168 "Source: " + s.to_s +
169 "\n Error: " + s.error.message.wrap(70).join("\n ") +
170 "\n Fix: sup-sync --changed #{s.to_s}"
178 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
179 :report_broken_sources
182 ## set up default configuration file
183 if File.exists? Redwood::CONFIG_FN
184 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
188 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first rescue nil
190 email = ENV["USER"] + "@" +
192 Socket.gethostbyname(Socket.gethostname).first
203 :sendmail => "/usr/sbin/sendmail -oem -ti",
204 :signature => File.join(ENV["HOME"], ".signature")
207 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
208 :thread_by_subject => false,
209 :edit_signature => false,
211 :ask_for_bcc => false,
212 :ask_for_subject => true,
213 :confirm_no_attachments => true,
214 :confirm_top_posting => true,
215 :discard_snippets_from_encrypted_messages => false,
216 :default_attachment_save_dir => "",
217 :sent_source => "sup://sent"
220 FileUtils.mkdir_p Redwood::BASE_DIR
221 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
222 rescue StandardError => e
223 $stderr.puts "warning: #{e.message}"
230 ## we have to initialize this guy first, because other classes must
231 ## reference it in order to register hooks, and they do that at parse
233 Redwood::HookManager.new Redwood::HOOK_DIR
235 ## everything we need to get logging working
239 require "sup/modes/scroll-mode"
240 require "sup/modes/text-mode"
241 require "sup/modes/log-mode"
244 def log s; Logger.log s; end
248 ## determine encoding and character set
249 $encoding = Locale.current.charset
251 Redwood::log "using character set encoding #{$encoding.inspect}"
253 Redwood::log "warning: can't find character set by using locale, defaulting to utf-8"
257 ## now everything else (which can feel free to call Redwood::log at load time)
259 require "sup/suicide"
260 require "sup/message-chunks"
261 require "sup/message"
264 require "sup/maildir"
267 require "sup/account"
270 require "sup/textfield"
271 require "sup/colormap"
273 require "sup/contact"
279 require "sup/horizontal-selector"
280 require "sup/modes/line-cursor-mode"
281 require "sup/modes/help-mode"
282 require "sup/modes/edit-message-mode"
283 require "sup/modes/compose-mode"
284 require "sup/modes/resume-mode"
285 require "sup/modes/forward-mode"
286 require "sup/modes/reply-mode"
287 require "sup/modes/label-list-mode"
288 require "sup/modes/contact-list-mode"
289 require "sup/modes/thread-view-mode"
290 require "sup/modes/thread-index-mode"
291 require "sup/modes/label-search-results-mode"
292 require "sup/modes/search-results-mode"
293 require "sup/modes/person-search-results-mode"
294 require "sup/modes/inbox-mode"
295 require "sup/modes/buffer-list-mode"
296 require "sup/modes/poll-mode"
297 require "sup/modes/file-browser-mode"
298 require "sup/modes/completion-mode"
302 d = File.join base, "sup/share/modes/"
303 Redwood::Mode.load_all_modes d if File.directory? d