俳句が読みたくなった時用earthquake plugin

haiku_tweet.rb

# -*- coding: utf-8 -*-
# haiku tweet / earthquake plugin
#
# e.g. :haiku           # => ここで一句、柿食えば 鐘がなるなり 法隆寺
#      :haiku hoge      # => hoge ここで一句、柿食えば 鐘がなるなり 法隆寺
#      :haiku $xx       # => @who ここで一句、柿食えば 鐘がなるなり 法隆寺
#      :haiku $xx  hoge # => @who hoge ここで一句、柿食えば 鐘がなるなり 法隆寺
#
Earthquake.init do
  command %r|^:haiku\s*(\d+)*\s*(.*)$|, :as => :haiku do |m|
    cmd = m[1] ? ":reply #{m[1]}" : ":update"
    input("%s %s ここで一句、 %s" % [cmd, m[2], open("http://haiku.jgate.de/"){|f| f.read}])
  end
end