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.
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 SOURCE_FN = File.join(BASE_DIR, "sources.yaml")
54 LABEL_FN = File.join(BASE_DIR, "labels.txt")
55 PERSON_FN = File.join(BASE_DIR, "people.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
67 def reporting_thread name
76 $exceptions << [e, name]
82 module_function :reporting_thread
84 ## one-stop shop for yamliciousness
85 def save_yaml_obj object, fn, safe=false
87 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
88 mode = File.stat(fn).mode if File.exists? fn
89 File.open(safe_fn, "w", mode) { |f| f.puts object.to_yaml }
90 FileUtils.mv safe_fn, fn
92 File.open(fn, "w") { |f| f.puts object.to_yaml }
96 def load_yaml_obj fn, compress=false
99 Zlib::GzipReader.open(fn) { |f| YAML::load f }
107 Redwood::PersonManager.new Redwood::PERSON_FN
108 Redwood::SentManager.new Redwood::SENT_FN
109 Redwood::ContactManager.new Redwood::CONTACT_FN
110 Redwood::LabelManager.new Redwood::LABEL_FN
111 Redwood::AccountManager.new $config[:accounts]
112 Redwood::DraftManager.new Redwood::DRAFT_DIR
113 Redwood::UpdateManager.new
114 Redwood::PollManager.new
115 Redwood::SuicideManager.new Redwood::SUICIDE_FN
116 Redwood::CryptoManager.new
120 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
121 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
122 Redwood::PersonManager.save if Redwood::PersonManager.instantiated?
123 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
126 ## not really a good place for this, so I'll just dump it here.
128 ## a source error is either a FatalSourceError or an OutOfSyncSourceError.
129 ## the superclass SourceError is just a generic.
130 def report_broken_sources opts={}
131 return unless BufferManager.instantiated?
133 broken_sources = Index.sources.select { |s| s.error.is_a? FatalSourceError }
134 unless broken_sources.empty?
135 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
137 Source error notification
138 -------------------------
140 Hi there. It looks like one or more message sources is reporting
141 errors. Until this is corrected, messages from these sources cannot
142 be viewed, and new messages will not be detected.
144 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
150 desynced_sources = Index.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
151 unless desynced_sources.empty?
152 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
154 Out-of-sync source notification
155 -------------------------------
157 Hi there. It looks like one or more sources has fallen out of sync
158 with my index. This can happen when you modify these sources with
159 other email clients. (Sorry, I don't play well with others.)
161 Until this is corrected, messages from these sources cannot be viewed,
162 and new messages will not be detected. Luckily, this is easy to correct!
164 #{desynced_sources.map do |s|
165 "Source: " + s.to_s +
166 "\n Error: " + s.error.message.wrap(70).join("\n ") +
167 "\n Fix: sup-sync --changed #{s.to_s}"
175 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
176 :report_broken_sources
179 ## set up default configuration file
180 if File.exists? Redwood::CONFIG_FN
181 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
185 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first rescue nil
187 email = ENV["USER"] + "@" +
189 Socket.gethostbyname(Socket.gethostname).first
200 :sendmail => "/usr/sbin/sendmail -oem -ti",
201 :signature => File.join(ENV["HOME"], ".signature")
204 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
205 :thread_by_subject => false,
206 :edit_signature => false,
208 :ask_for_bcc => false,
209 :ask_for_subject => true,
210 :confirm_no_attachments => true,
211 :confirm_top_posting => true,
212 :discard_snippets_from_encrypted_messages => false,
215 FileUtils.mkdir_p Redwood::BASE_DIR
216 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
217 rescue StandardError => e
218 $stderr.puts "warning: #{e.message}"
225 ## we have to initialize this guy first, because other classes must
226 ## reference it in order to register hooks, and they do that at parse
228 Redwood::HookManager.new Redwood::HOOK_DIR
230 ## everything we need to get logging working
234 require "sup/modes/scroll-mode"
235 require "sup/modes/text-mode"
236 require "sup/modes/log-mode"
239 def log s; Logger.log s; end
243 ## determine encoding and character set
244 $encoding = Locale.current.charset
246 Redwood::log "using character set encoding #{$encoding.inspect}"
248 Redwood::log "warning: can't find character set by using locale, defaulting to utf-8"
252 ## now everything else (which can feel free to call Redwood::log at load time)
254 require "sup/suicide"
255 require "sup/message-chunks"
256 require "sup/message"
259 require "sup/maildir"
262 require "sup/account"
265 require "sup/textfield"
266 require "sup/colormap"
268 require "sup/contact"
273 require "sup/horizontal-selector"
274 require "sup/modes/line-cursor-mode"
275 require "sup/modes/help-mode"
276 require "sup/modes/edit-message-mode"
277 require "sup/modes/compose-mode"
278 require "sup/modes/resume-mode"
279 require "sup/modes/forward-mode"
280 require "sup/modes/reply-mode"
281 require "sup/modes/label-list-mode"
282 require "sup/modes/contact-list-mode"
283 require "sup/modes/thread-view-mode"
284 require "sup/modes/thread-index-mode"
285 require "sup/modes/label-search-results-mode"
286 require "sup/modes/search-results-mode"
287 require "sup/modes/person-search-results-mode"
288 require "sup/modes/inbox-mode"
289 require "sup/modes/buffer-list-mode"
290 require "sup/modes/poll-mode"
291 require "sup/modes/file-browser-mode"
292 require "sup/modes/completion-mode"
296 d = File.join base, "sup/share/modes/"
297 Redwood::Mode.load_all_modes d if File.directory? d