短歌が読みたくなった時用earthquake plugin

tanka_tweet.rb

# -*- coding: utf-8 -*-
# haiku tweet / earthquake plugin
#
# e.g. :tanka           # => ここで一首、田子の浦ゆ　うちいでて見れば真白にぞ　富士の高嶺に　雪は降りける
#      :tanka hoge      # => hoge ここで一首、田子の浦ゆ　うちいでて見れば真白にぞ　富士の高嶺に　雪は降りける
#      :tanka $xx       # => @who ここで一首、田子の浦ゆ　うちいでて見れば真白にぞ　富士の高嶺に　雪は降りける
#      :tanka $xx  hoge # => @who hoge ここで一首、田子の浦ゆ　うちいでて見れば真白にぞ　富士の高嶺に　雪は降りける
#

Earthquake.init do
  command %r|^:tanka\s*(\d+)*\s*(.*)$|, :as => :haiku do |m|
    cmd = m[1] ? ":reply #{m[1]}" : ":update"
    input("%s %s ここで一首、 %s" % [cmd, m[2], open("http://tanka.jgate.de/"){|f| f.read}])
  end
end