#! /usr/bin/ruby
require 'yaml'
require 'tempfile'
require 'optparse'

# We sometimes want the tempfile to persist, a la Debian's reportbug
class Tempfile
  def persist
    ObjectSpace.undefine_finalizer(self)
  end
end

DEFAULT_CONFIG = <<EOF
blog_url: 'http://localhost:3000/backend/xmlrpc'
blogid: 1
username: fugalh
password: secret
textFilter: markdown
template: |
  # You are editing two YAML documents. If you are not familiar with YAML, 
  # visit http://yaml.org/ 
  
  # The first document is parameters and configuration. The config file is
  # overridden.
  # Valid keys: 
  #   title, categories (list), mt_keywords (string), mt_tb_ping_urls,
  #   dateCreated, permaLink, publish, mt_allow_comments, mt_allow_pings,
  #   blog_url, blogid, username, password
  
  title: 
  categories: []
  mt_keywords: 
  
  # The rest of this file is the second YAML document, 
  # i.e. the body of your post
  --- |
EOF

# Options
OptionParser.new do |opts|
  opts.banner = "Usage: #{$0} [options]"
  opts.on('-d','--dump-default-config', 
	  'To help create ~/.flogrc') do
    puts DEFAULT_CONFIG 
    exit 
  end
  opts.on('-h','--help','This message') { puts opts; exit }
end.parse!

# Read config
p = ENV['HOME']+'/.flogrc'
if File.exist?(p)
  s = File.read(p)
else
  s = DEFAULT_CONFIG
end
config = YAML.load(s)

# User edit
tmp = Tempfile.new('flog')
tmp.write config['template']
tmp.close
system ENV['EDITOR'], tmp.path

# abort?
post = File.read(tmp.path)
if post == config['template']
  puts "Template unchanged. Aborting."
  exit
end

# read post
params,post = YAML.load_stream(post).documents
contents = config.dup
%w(username password blog_url blogid template).each {|k| 
  contents.delete(k)
  if params.has_key?(k)
    config[k] = params[k]
    params.delete(k)
  end
}
contents.merge!(params)
contents['description'] = post
contents['dateCreated'] ||= Time.now.utc

# post post
require 'blog/client'
blog = Blog::Client.new(config['blog_url'],'appkey',
			config['username'],config['password'])
print 'Posting...'; $stdout.flush
begin
  blog.metaWeblog_newPost(config['blogid'], contents,
			  !(config['publish'] == false))
  puts 'done.'
rescue
  tmp.persist
  puts "failed. Your post will remain in #{tmp.path}."
  puts "Please enjoy this backtrace."
  puts
  raise $!
end