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 ## determine encoding and character set
53 ## probably a better way to do this
54 $ctype = ENV["LC_CTYPE"] || ENV["LANG"] || "en-US.utf-8"
56 if $ctype =~ /\.(.*)?/
62 ## record exceptions thrown in threads nicely
78 module_function :reporting_thread
80 ## one-stop shop for yamliciousness
81 def save_yaml_obj object, fn, safe=false
83 safe_fn = "#{File.dirname fn}/safe_#{File.basename fn}"
84 mode = File.stat(fn) if File.exists? fn
85 File.open(safe_fn, "w", mode) { |f| f.puts object.to_yaml }
86 FileUtils.mv safe_fn, fn
88 File.open(fn, "w") { |f| f.puts object.to_yaml }
92 def load_yaml_obj fn, compress=false
95 Zlib::GzipReader.open(fn) { |f| YAML::load f }
103 Redwood::PersonManager.new Redwood::PERSON_FN
104 Redwood::SentManager.new Redwood::SENT_FN
105 Redwood::ContactManager.new Redwood::CONTACT_FN
106 Redwood::LabelManager.new Redwood::LABEL_FN
107 Redwood::AccountManager.new $config[:accounts]
108 Redwood::DraftManager.new Redwood::DRAFT_DIR
109 Redwood::UpdateManager.new
110 Redwood::PollManager.new
111 Redwood::SuicideManager.new Redwood::SUICIDE_FN
112 Redwood::CryptoManager.new
116 Redwood::LabelManager.save if Redwood::LabelManager.instantiated?
117 Redwood::ContactManager.save if Redwood::ContactManager.instantiated?
118 Redwood::PersonManager.save if Redwood::PersonManager.instantiated?
119 Redwood::BufferManager.deinstantiate! if Redwood::BufferManager.instantiated?
122 ## not really a good place for this, so I'll just dump it here.
123 def report_broken_sources opts={}
124 return unless BufferManager.instantiated?
126 broken_sources = Index.usual_sources.select { |s| s.error.is_a? FatalSourceError }
127 File.open("goat", "w") { |f| f.puts Kernel.caller }
128 unless broken_sources.empty?
129 BufferManager.spawn_unless_exists("Broken source notification for #{broken_sources.join(',')}", opts) do
131 Source error notification
132 -------------------------
134 Hi there. It looks like one or more message sources is reporting
135 errors. Until this is corrected, messages from these sources cannot
136 be viewed, and new messages will not be detected.
138 #{broken_sources.map { |s| "Source: " + s.to_s + "\n Error: " + s.error.message.wrap(70).join("\n ")}.join("\n\n")}
144 desynced_sources = Index.usual_sources.select { |s| s.error.is_a? OutOfSyncSourceError }
145 unless desynced_sources.empty?
146 BufferManager.spawn_unless_exists("Out-of-sync source notification for #{broken_sources.join(',')}", opts) do
148 Out-of-sync source notification
149 -------------------------------
151 Hi there. It looks like one or more sources has fallen out of sync
152 with my index. This can happen when you modify these sources with
153 other email clients. (Sorry, I don't play well with others.)
155 Until this is corrected, messages from these sources cannot be viewed,
156 and new messages will not be detected. Luckily, this is easy to correct!
158 #{desynced_sources.map do |s|
159 "Source: " + s.to_s +
160 "\n Error: " + s.error.message.wrap(70).join("\n ") +
161 "\n Fix: sup-sync --changed #{s.to_s}"
169 module_function :save_yaml_obj, :load_yaml_obj, :start, :finish,
170 :report_broken_sources
173 ## set up default configuration file
174 if File.exists? Redwood::CONFIG_FN
175 $config = Redwood::load_yaml_obj Redwood::CONFIG_FN
179 name = Etc.getpwnam(ENV["USER"]).gecos.split(/,/).first
180 email = ENV["USER"] + "@" +
182 Socket.gethostbyname(Socket.gethostname).first
193 :sendmail => "/usr/sbin/sendmail -oem -ti",
194 :signature => File.join(ENV["HOME"], ".signature")
197 :editor => ENV["EDITOR"] || "/usr/bin/vim -f -c 'setlocal spell spelllang=en_us' -c 'set filetype=mail'",
198 :thread_by_subject => false,
199 :edit_signature => false,
201 :ask_for_bcc => false,
202 :ask_for_subject => true,
203 :confirm_no_attachments => true,
204 :confirm_top_posting => true,
207 FileUtils.mkdir_p Redwood::BASE_DIR
208 Redwood::save_yaml_obj $config, Redwood::CONFIG_FN
209 rescue StandardError => e
210 $stderr.puts "warning: #{e.message}"
217 ## we have to initialize this guy first, because other classes must
218 ## reference it in order to register hooks, and they do that at parse
220 Redwood::HookManager.new Redwood::HOOK_DIR
222 ## everything we need to get logging working
226 require "sup/modes/scroll-mode"
227 require "sup/modes/text-mode"
228 require "sup/modes/log-mode"
231 def log s; Logger.log s; end
235 ## now everything else (which can feel free to call Redwood::log at load time)
237 require "sup/suicide"
238 require "sup/message-chunks"
239 require "sup/message"
242 require "sup/maildir"
245 require "sup/account"
248 require "sup/textfield"
249 require "sup/colormap"
251 require "sup/contact"
256 require "sup/modes/line-cursor-mode"
257 require "sup/modes/help-mode"
258 require "sup/modes/edit-message-mode"
259 require "sup/modes/compose-mode"
260 require "sup/modes/resume-mode"
261 require "sup/modes/forward-mode"
262 require "sup/modes/reply-mode"
263 require "sup/modes/label-list-mode"
264 require "sup/modes/contact-list-mode"
265 require "sup/modes/thread-view-mode"
266 require "sup/modes/thread-index-mode"
267 require "sup/modes/label-search-results-mode"
268 require "sup/modes/search-results-mode"
269 require "sup/modes/person-search-results-mode"
270 require "sup/modes/inbox-mode"
271 require "sup/modes/buffer-list-mode"
272 require "sup/modes/poll-mode"
273 require "sup/modes/file-browser-mode"
274 require "sup/modes/completion-mode"
278 d = File.join base, "sup/share/modes/"
279 Redwood::Mode.load_all_modes d if File.directory? d