9 ## the following magic enables wide characters when used with a ruby
10 ## ncurses.so that's been compiled against libncursesw. (note the w.) why
11 ## this works, i have no idea. much like pretty much every aspect of
12 ## dealing with curses. cargo cult programming at its best.
17 dlload Config::CONFIG['arch'] =~ /darwin/ ? "libc.dylib" : "libc.so.6"
18 extern "void setlocale(int, const char *)"
20 LibC.setlocale(6, "") # LC_ALL == 6
23 ## this is for debugging purposes because i keep calling #id on the
24 ## wrong object and i want it to throw an exception
26 raise "wrong id called on #{self.inspect}"
31 def yaml_properties *props
32 props = props.map { |p| p.to_s }
33 vars = props.map { |p| "@#{p}" }
35 path = klass.name.gsub(/::/, "/")
37 klass.instance_eval do
38 define_method(:to_yaml_properties) { vars }
39 define_method(:to_yaml_type) { "!#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}/#{path}" }
42 YAML.add_domain_type("#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}", path) do |type, val|
43 klass.new(*props.map { |p| val[p] })
51 BASE_DIR = ENV["SUP_BASE"] || File.join(ENV["HOME"], ".sup")
52 CONFIG_FN = File.join(BASE_DIR, "config.yaml")
53 COLOR_FN = File.join(BASE_DIR, "colors.yaml")
54 SOURCE_FN = File.join(BASE_DIR, "sources.yaml")
55 LABEL_FN = File.join(BASE_DIR, "labels.txt")
56 CONTACT_FN = File.join(BASE_DIR, "contacts.txt")
57 DRAFT_DIR = File.join(BASE_DIR, "drafts")
58 SENT_FN = File.join(BASE_DIR, "sent.mbox")
59 LOCK_FN = File.join(BASE_DIR, "lock")
60 SUICIDE_FN = File.join(BASE_DIR, "please-kill-yourself")
61 HOOK_DIR = File.join(BASE_DIR, "hooks")
63 YAML_DOMAIN = "masanjin.net"
64 YAML_DATE = "2006-10-01"
66 ## record exceptions thrown in threads nicely
68 @exception_mutex = Mutex.new
70 attr_reader :exceptions
71 def record_exception e, name
72 @exception_mutex.synchronize do
74 @exceptions << [e, name]
78 def reporting_thread name
86 record_exception e, name
92 module_function :reporting_thread, :record_exception, :exceptions
94 ## one-stop shop for yamliciousness
95 def save_yaml_obj object, fn, safe=false
97 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
98 mode = File.stat(fn).mode if File.exists? fn
99 File.open(safe_fn, "w", mode) { |f| f.puts object.to_yaml }
100 FileUtils.mv safe_fn, fn
102 File.open(fn, "w") { |f| f.puts object.to_yaml }
106 def load_yaml_obj fn, compress=false
109 Zlib::GzipReader.open(fn) { |f| YAML::load f }
117 Redwood::SentManager.new Redwood::SENT_FN
118 Redwood::ContactManager.new Redwood::CONTACT_FN
119 Redwood::LabelManager.new Redwood::LABEL_FN
120 Redwood::AccountManager.new $config[:accounts]
121 Redwood::DraftManager.new Redwood::DRAFT_DIR
122 Redwood::UpdateManager.new
123 Redwood::PollManager.new
124 Redwood::SuicideManager.new Redwood::SUICIDE_FN
125 Redwood::CryptoManager.new
129 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
130 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
131 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
134 ## not really a good place for this, so I'll just dump it here.
136 ## a source error is either a FatalSourceError or an OutOfSyncSourceError.
137 ## the superclass SourceError is just a generic.
138 def report_broken_sources opts={}
139 return unless BufferManager.instantiated?
141 broken_sources = Index.sources.select { |s| s.error.is_a? FatalSourceError }
142 unless broken_sources.empty?
143 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
145 Source error notification
146 -------------------------
148 Hi there. It looks like one or more message sources is reporting
149 errors. Until this is corrected, messages from these sources cannot
150 be viewed, and new messages will not be detected.
152 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
158 desynced_sources = Index.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
159 unless desynced_sources.empty?
160 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
162 Out-of-sync source notification
163 -------------------------------
165 Hi there. It looks like one or more sources has fallen out of sync
166 with my index. This can happen when you modify these sources with
167 other email clients. (Sorry, I don't play well with others.)
169 Until this is corrected, messages from these sources cannot be viewed,
170 and new messages will not be detected. Luckily, this is easy to correct!
172 #{desynced_sources.map do |s|
173 "Source: " + s.to_s +
174 "\n Error: " + s.error.message.wrap(70).join("\n ") +
175 "\n Fix: sup-sync --changed #{s.to_s}"
183 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
184 :report_broken_sources
187 ## set up default configuration file
188 if File.exists? Redwood::CONFIG_FN
189 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
193 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first rescue nil
195 email = ENV["USER"] + "@" +
197 Socket.gethostbyname(Socket.gethostname).first
208 :sendmail => "/usr/sbin/sendmail -oem -ti",
209 :signature => File.join(ENV["HOME"], ".signature")
212 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
213 :thread_by_subject => false,
214 :edit_signature => false,
216 :ask_for_bcc => false,
217 :ask_for_subject => true,
218 :confirm_no_attachments => true,
219 :confirm_top_posting => true,
220 :discard_snippets_from_encrypted_messages => false,
221 :default_attachment_save_dir => "",
224 FileUtils.mkdir_p Redwood::BASE_DIR
225 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
226 rescue StandardError => e
227 $stderr.puts "warning: #{e.message}"
234 ## we have to initialize this guy first, because other classes must
235 ## reference it in order to register hooks, and they do that at parse
237 Redwood::HookManager.new Redwood::HOOK_DIR
239 ## everything we need to get logging working
243 require "sup/modes/scroll-mode"
244 require "sup/modes/text-mode"
245 require "sup/modes/log-mode"
248 def log s; Logger.log s; end
252 ## determine encoding and character set
253 $encoding = Locale.current.charset
255 Redwood::log "using character set encoding #{$encoding.inspect}"
257 Redwood::log "warning: can't find character set by using locale, defaulting to utf-8"
261 ## now everything else (which can feel free to call Redwood::log at load time)
263 require "sup/suicide"
264 require "sup/message-chunks"
265 require "sup/message"
268 require "sup/maildir"
271 require "sup/account"
274 require "sup/textfield"
275 require "sup/colormap"
277 require "sup/contact"
282 require "sup/horizontal-selector"
283 require "sup/modes/line-cursor-mode"
284 require "sup/modes/help-mode"
285 require "sup/modes/edit-message-mode"
286 require "sup/modes/compose-mode"
287 require "sup/modes/resume-mode"
288 require "sup/modes/forward-mode"
289 require "sup/modes/reply-mode"
290 require "sup/modes/label-list-mode"
291 require "sup/modes/contact-list-mode"
292 require "sup/modes/thread-view-mode"
293 require "sup/modes/thread-index-mode"
294 require "sup/modes/label-search-results-mode"
295 require "sup/modes/search-results-mode"
296 require "sup/modes/person-search-results-mode"
297 require "sup/modes/inbox-mode"
298 require "sup/modes/buffer-list-mode"
299 require "sup/modes/poll-mode"
300 require "sup/modes/file-browser-mode"
301 require "sup/modes/completion-mode"
305 d = File.join base, "sup/share/modes/"
306 Redwood::Mode.load_all_modes d if File.directory? d