root/lang/vim/ruby/mixi.vim @ 15697

command! Mixi :call <SID>MixiStart()

function! s:MixiStart()
  set nonu
  ruby mixi_run
endfunction

ruby << EOF
class Mixi
  def initialize(email, password, mixi_premium = false, image_dir = '~/.vim/mixi_images')
    require 'kconv'
    require 'rubygems'
    require 'mechanize'

    @image_dir = File.expand_path image_dir
    @email, @password, @mixi_premium =
      email, password, mixi_premium
    @agent = WWW::Mechanize.new
    @agent.user_agent_alias = 'Mac Safari'
  end

  def post(title, body, images)
    page = @agent.get 'http://mixi.jp/home.pl'
    form = page.forms[0]
    form.email = @email
    form.password = @password
    @agent.submit form

    page = @agent.get "http://mixi.jp/home.pl"
    page = @agent.get(page.links.map(&:href).detect {|l| /add_diary/ =~ l })
    form = page.forms[(@mixi_premium ? 2 : 1)]
    form.diary_title = title
    form.diary_body = self.class.magic_body(body)
    get_image images
    images[0, 3].each_with_index do |img, i|
      if /darwin/ =~ RUBY_PLATFORM && /\.png$/i =~ img
        imgjpg = '/tmp/mixi-vim-' << File.basename(img).sub(/\.png$/i, '.jpg')
        system "sips -s format jpeg --out #{imgjpg} #{img} > /dev/null 2>&1"
        img = imgjpg
      end
      form.file_uploads[i].file_name = img
    end
    page = @agent.submit form
    page = @agent.submit page.forms[1]
  end

  def get_latest
    page = @agent.get 'http://mixi.jp/list_diary.pl'
    [
      page.links[33].text.toutf8,
      "http://mixi.jp/" << page.links[33].uri.to_s.toutf8
    ]
  end

  def self.magic_body(body)
    body.gsub(/^(  )+/) {|i| '　'.toeuc * (i.length/2) }
  end

  def get_image(images)
    images.each_with_index do |img, i|
      if img =~ %r{^http://}
        path =
          File.join @image_dir, i.to_s + File.extname(img)
        unless File.exist? @image_dir
          Dir.mkdir @image_dir
        else
          Dir.chdir(@image_dir) do
            Dir.entries(@image_dir).
              each {|f| File.unlink f if File.file? f }
          end
        end
        system "wget -O #{path} #{img} > /dev/null 2>&1"
        if File.exist? path and !File.zero? path
          images[i] = path
        else
          images.delete_at i
        end
      end
    end
  end
end

def mixi_run
  vim = VIM::Buffer.current
  return if VIM.evaluate('confirm("really?")') == 0

  endline = VIM.evaluate %[line("$")]
  title   = VIM.evaluate %[getline(1)]
  body = VIM.evaluate(%[join(getline(2, #{endline}), "\n")]).split "\n"

  images = body.reverse.inject([]) {|r, l| r.unshift l[4..-1] if l =~ /^img:/; r }
  body = body[0..-(images.length + 1)].join "\n"

  # ~/.mixi
  # line1: input your email
  # line2: input your password
  # line3: input "premium" if you are premium
  m =
    if File.exist?(File.expand_path('~/.mixi'))
      mixi_config = File.read(File.expand_path('~/.mixi'))
      email, password, premium = mixi_config.split(/\r?\n/)
      Mixi.new email, password, (premium == 'premium')
    else
      m = Mixi.new 'YOUR_EMAIL', 'YOUR_PASSWORD'
    end
  # if you are mixi premium member:
  # m = Mixi.new 'YOUR_EMAIL', 'YOUR_PASSWORD', true
  m.post title.toeuc, body.toeuc, images
  m.get_latest.each do |line|
    vim.append(vim.count, line)
  end
end
EOF