9 ## this is for debugging purposes because i keep calling #id on the
10 ## wrong object and i want it to throw an exception
12 raise "wrong id called on #{self.inspect}"
17 def yaml_properties *props
18 props = props.map { |p| p.to_s }
19 vars = props.map { |p| "@#{p}" }
21 path = klass.name.gsub(/::/, "/")
23 klass.instance_eval do
24 define_method(:to_yaml_properties) { vars }
25 define_method(:to_yaml_type) { "!#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}/#{path}" }
28 YAML.add_domain_type("#{Redwood::YAML_DOMAIN},#{Redwood::YAML_DATE}", path) do |type, val|
29 klass.new(*props.map { |p| val[p] })
37 BASE_DIR = ENV["SUP_BASE"] || File.join(ENV["HOME"], ".sup")
38 CONFIG_FN = File.join(BASE_DIR, "config.yaml")
39 SOURCE_FN = File.join(BASE_DIR, "sources.yaml")
40 LABEL_FN = File.join(BASE_DIR, "labels.txt")
41 PERSON_FN = File.join(BASE_DIR, "people.txt")
42 CONTACT_FN = File.join(BASE_DIR, "contacts.txt")
43 DRAFT_DIR = File.join(BASE_DIR, "drafts")
44 SENT_FN = File.join(BASE_DIR, "sent.mbox")
45 LOCK_FN = File.join(BASE_DIR, "lock")
46 SUICIDE_FN = File.join(BASE_DIR, "please-kill-yourself")
47 HOOK_DIR = File.join(BASE_DIR, "hooks")
49 YAML_DOMAIN = "masanjin.net"
50 YAML_DATE = "2006-10-01"
52 ## record exceptions thrown in threads nicely
53 def reporting_thread name
62 $exceptions << [e, name]
68 module_function :reporting_thread
70 ## one-stop shop for yamliciousness
71 def save_yaml_obj object, fn, safe=false
73 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
74 mode = File.stat(fn) if File.exists? fn
75 File.open(safe_fn, "w", mode) { |f| f.puts object.to_yaml }
76 FileUtils.mv safe_fn, fn
78 File.open(fn, "w") { |f| f.puts object.to_yaml }
82 def load_yaml_obj fn, compress=false
85 Zlib::GzipReader.open(fn) { |f| YAML::load f }
93 Redwood::PersonManager.new Redwood::PERSON_FN
94 Redwood::SentManager.new Redwood::SENT_FN
95 Redwood::ContactManager.new Redwood::CONTACT_FN
96 Redwood::LabelManager.new Redwood::LABEL_FN
97 Redwood::AccountManager.new $config[:accounts]
98 Redwood::DraftManager.new Redwood::DRAFT_DIR
99 Redwood::UpdateManager.new
100 Redwood::PollManager.new
101 Redwood::SuicideManager.new Redwood::SUICIDE_FN
102 Redwood::CryptoManager.new
106 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
107 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
108 Redwood::PersonManager.save if Redwood::PersonManager.instantiated?
109 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
112 ## not really a good place for this, so I'll just dump it here.
114 ## a source error is either a FatalSourceError or an OutOfSyncSourceError.
115 ## the superclass SourceError is just a generic.
116 def report_broken_sources opts={}
117 return unless BufferManager.instantiated?
119 broken_sources = Index.sources.select { |s| s.error.is_a? FatalSourceError }
120 unless broken_sources.empty?
121 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
123 Source error notification
124 -------------------------
126 Hi there. It looks like one or more message sources is reporting
127 errors. Until this is corrected, messages from these sources cannot
128 be viewed, and new messages will not be detected.
130 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
136 desynced_sources = Index.sources.select { |s| s.error.is_a? OutOfSyncSourceError }
137 unless desynced_sources.empty?
138 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
140 Out-of-sync source notification
141 -------------------------------
143 Hi there. It looks like one or more sources has fallen out of sync
144 with my index. This can happen when you modify these sources with
145 other email clients. (Sorry, I don't play well with others.)
147 Until this is corrected, messages from these sources cannot be viewed,
148 and new messages will not be detected. Luckily, this is easy to correct!
150 #{desynced_sources.map do |s|
151 "Source: " + s.to_s +
152 "\n Error: " + s.error.message.wrap(70).join("\n ") +
153 "\n Fix: sup-sync --changed #{s.to_s}"
161 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
162 :report_broken_sources
165 ## set up default configuration file
166 if File.exists? Redwood::CONFIG_FN
167 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
171 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first
172 email = ENV["USER"] + "@" +
174 Socket.gethostbyname(Socket.gethostname).first
185 :sendmail => "/usr/sbin/sendmail -oem -ti",
186 :signature => File.join(ENV["HOME"], ".signature")
189 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
190 :thread_by_subject => false,
191 :edit_signature => false,
193 :ask_for_bcc => false,
194 :ask_for_subject => true,
195 :confirm_no_attachments => true,
196 :confirm_top_posting => true,
197 :discard_snippets_from_encrypted_messages => false,
200 FileUtils.mkdir_p Redwood::BASE_DIR
201 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
202 rescue StandardError => e
203 $stderr.puts "warning: #{e.message}"
210 ## we have to initialize this guy first, because other classes must
211 ## reference it in order to register hooks, and they do that at parse
213 Redwood::HookManager.new Redwood::HOOK_DIR
215 ## everything we need to get logging working
219 require "sup/modes/scroll-mode"
220 require "sup/modes/text-mode"
221 require "sup/modes/log-mode"
224 def log s; Logger.log s; end
228 ## determine encoding and character set. there MUST be a better way to
230 $encoding = `locale -c LC_CTYPE|head -6|tail -1`.chomp
232 Redwood::log "using character set encoding #{$encoding.inspect}"
234 Redwood::log "warning: can't find character set by using locale, defaulting to utf-8"
238 ## now everything else (which can feel free to call Redwood::log at load time)
240 require "sup/suicide"
241 require "sup/message-chunks"
242 require "sup/message"
245 require "sup/maildir"
248 require "sup/account"
251 require "sup/textfield"
252 require "sup/colormap"
254 require "sup/contact"
259 require "sup/horizontal-selector"
260 require "sup/modes/line-cursor-mode"
261 require "sup/modes/help-mode"
262 require "sup/modes/edit-message-mode"
263 require "sup/modes/compose-mode"
264 require "sup/modes/resume-mode"
265 require "sup/modes/forward-mode"
266 require "sup/modes/reply-mode"
267 require "sup/modes/label-list-mode"
268 require "sup/modes/contact-list-mode"
269 require "sup/modes/thread-view-mode"
270 require "sup/modes/thread-index-mode"
271 require "sup/modes/label-search-results-mode"
272 require "sup/modes/search-results-mode"
273 require "sup/modes/person-search-results-mode"
274 require "sup/modes/inbox-mode"
275 require "sup/modes/buffer-list-mode"
276 require "sup/modes/poll-mode"
277 require "sup/modes/file-browser-mode"
278 require "sup/modes/completion-mode"
282 d = File.join base, "sup/share/modes/"
283 Redwood::Mode.load_all_modes d if File.directory? d